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1.  Introduction 


r 


This  report  summarizes  the  implementation  and  further  development 
of  the  Chlorine  Model  Study  Program  (CMSP)  performed  by  environmental 
Research  6 Technology,  Inc.  (ERT)  under  the  sponsorship  of  the  Electronic 
Systems  Division,  U.S.A.F.  Systems  Command,  Hanscom  AFB,  Massachusetts.  i 

The  CMSP  is  an  advanced  state-of-the-art  computer  code  which  models 
the  trace  gas  composition  of  the  atmosphere  from  the  surface  to  80  km 
employing  over  sixty  chemical  reactions  in  addition  to  allowing  for  ver- 
tical transport  parameterized  by  a selected  set  of  eddy  diffusion  coeffi- 
cients. In  its  original  formulation,  the  model  only  computed  photolysis 
for  the  one-way  passage  of  solar  radiation  through  the  atmosphere  (absorp- 
tion only).  In  the  present  version  the  effects  of  multiple  scattering 
and  surface  reflection  have  been  incorporated  into  the  radiative  transfer 
section  of  the  program  thus  allowing  for  more  realistic  simulation  of  the 
effects  of  injected  pollutants  into  the  atmosphere. 

The  text  which  follows  constitutes  a basic  program  description, 
documentation,  and  users  guide.  Section  2 discusses  the  theoretical 
basis  of  the  model  including  the  governing  continuity  and  flux  equations 
for  the  steady-state  version  in  addition  to  the  chemical  system  adopted. 

Section  3 provides  a description  of  the  development  of  the  radiative 
transfer  section  including  the  technique  employed  to  perform  the  multiple 
scattering  calculation  and  some  representative  results  (Appendix  C) . 

Section  4 constitutes  a comprehensive  program  description  utilizing  a 
complete  program  listing  (Appendix  A)  and  a flow  chart  (Appendix  B)  to 
aid  in  the  exposition  of  the  detailed  calculation.  Finally,  Section  5 
is  included  as  a basic  users  guide  containing  instructions  for  program 
implementation  and  execution. 
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2.  Theoretical  Basis 


2.1  Governing  Model  Equations 

The  CMSP  program  is  a 1 -dimensional  (vertical  dependence),  steady 
state  (no  time  dependence)  mathematical  model  of  the  trace  gas  chemical 
composition  of  the  'tmosphere  from  the  surface  to  80  km.  Specifically, 
the  species  dealt  with  include  odd  oxygen  (0,0^),  odd  hydrogen  (H,  OH, 
HO2,  ^^2^2^’  nitrogen  (NO,  NO^t  HNO^) , and  odd  chlorine  (Ct,  HCt, 
CtO).  Physical  processes  which  determine  the  local  abundances  of  these 
and  other  minor  species  include  chemical  kinetics,  photochemistry,  and 
turbulent  transport.  Radiative  transfer  is  indirectly  involved  since  it 
determines  the  number  of  photons  available  for  photodissociation.  (See 
Section  3) . 

The  model  is  similar  to  those  of  Wofsy,  McElroy  and  Sze  (1975)  and 
Sze  and  McElroy  (1975)  with  several  modifications.  The  governing  con- 
tinuity and  diffusion  equations  are: 


and 


L.Nf . 
1 1 


■*i/KN 


(2-1) 

(2-2) 


-2  -1 

where  (|>^  is  the  vertical  flux  (cm  sec  ),  N the  atmospheric  total  number 

-3  2 -1 

density  (cm  ),  K the  eddy  coefficients  (cm  sec  ) and  P^  and  are 

respectively  the  local  production  (cm  ^ sec  ^)  and  loss  frequency  (sec"^), 

i denotes  the  i^^  species,  and  f^  is  the  mixing  ratio  (v/v) . Distinctions 

between  long  lived  species  (e.g.  N2O,  CH^,  CF^Ct^)  and  short  lived  species 

(e.g.  Cl,  OH,  NO)  lead  to  enormous  simplication  in  calculations. 

For  instance,  the  time  constants  for  apportionment  of  CtX  among  various 

forms  of  odd  chlorine  (Ct,  C£0,  HC£,  CtOO,  Ct^)  are  rapid  compared  to  the 

time  constant  for  vertical  motion.  Densities  of  individual  CtX  .species 
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can  be  calculated  with  the  equations  of  photochemical  eouilibrium,  i.e. 

= 0 for  each  species  (2-3) 

Likewise,  photochemical  equilibrium  can  be  applied  to  the  short  lived 
hydrogen  species  (H,  OH,  HO^,  H^O^) , to  NO^  (NO,  NO^,  HNO^) , to  0(^P) 
and  to  0(^D).  On  the  contrary,  vertical  flow  is  allowed  for  long-lived 
species  such  as  CH^,  N^O,  CO,  CF^Cil^,  CFCt^,  and  0^  (below  30  km)  and 
the  total  family  concentrations  for  HO^,  NO^,  and  CHx.  In  this  case, 
equations  (2-1,  2-2)  must  be  solved  simultaneously. 

Equations  (2-1)  and  (2-2)  are  coupled  differential  equations  with 
two  point  boundary  conditions.  They  are  usually  solved  by  using  the 
conventional  finite  difference  method  or  the  shooting  method.  However, 
more  efficient  schemes  have  recently  been  developed  to  improve  computa- 
tional efficiency.  The  numerical  approach  utilized  is  based  on  a Riccati 
scheme  developed  by  Sze  (1973)  and  subsequently  applied  to  investigations 
relating  to  the  Venus  (Sze  and  McElroy,  1975)  and  Earth's  atmosphere. 

In  essence,  the  Riccati  scheme  transforms  (2-1)  and  (2-2)  into  a non- 
coupled  systen  with  a one  point  boundary  condition.  This  technique  greatly 
reduces  the  computational  complexity  of  the  problem  and  facilitates 
numerical  solutions  of  differential  equations  of  the  type  described  here. 

In  the  one-dimensional  model,  the  crucial  transport  parameter  is 

the  vertical  eddy  diffusion  coefficient  K . In  the  current  model  three 

zz 

options  exist  to  vary  the  assumed  profile  to  simulate  measured  data 
and  perform  sensitivity  analyses.  (See  Section  4.3.2).  The  neutral  atmos- 
phere used  in  the  calculation  is  summarized  in  Table  2-1  (a  particular 
eddy  diffusion  profile  is  demonstrated).  Photolysis  processes  for  aero- 
nomically  significant  molecules  are  summarized  in  Table  2-2.  Computations 
of  photodissociation  rates  (or  J-values)  are  accomplished  (See  Section  3-1) 

i 
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TABLE  2*1 


ATNWSPHERIC  MODEL 


Eddy  Diffusion 

Number 

titude 

Coefficient 

Density 

Temperature 

(km) 

(cm^  sec  ’ ) 

(cm 

(°K) 

0 

1.4000E  05 

2.41 lOE 

19 

304.58 

■> 

1.4000E  05 

2. 1050r 

19 

289 . 56 

4 

1.4000n  05 

1 .651 OF 

19 

277.87 

() 

1.4000F.  05 

1 . 34 OOF 

19 

2(>6.52 

8 

1.4000E  05 

1 .0880F 

19 

252.41 

10 

4.2000E  04 

8.7330F. 

18 

238.39 

1 1 

4.2000E  04 

6.9130F 

18 

224.42 

14 

4.2000E  04 

5. 931  OF 

18 

210.50 

16 

3.6400E  03 

4. 1030F 

18 

203. 15 

18 

4.6200E  03 

2. 8 24 OF 

18 

207.38 

JO 

5.8800F  03 

2.0000F 

18 

211.75 

-1 1 

7.4200E  03 

1 .4290F 

18 

215.94 

24 

9.2400E  03 

1 .0320F 

18 

219.20 

26 

1.1620E  04 

7.4450F 

17 

223.84 

28 

1.4140E  04 

5.4230F 

17 

227.83 

50 

1.S200E  04 

3.9700F 

17 

231.79 

32 

2.2400E  04 

2.9240F 

17 

235.74 

34 

2.8700E  04 

2. 1590F 

17 

240.40 

36 

3.5700E  04 

1.604 OF 

17 

245.14 

38 

4.4800E  04 

1 . 1980E 

17 

249.88 

40 

5.6000H  04 

8.9990F 

16 

254.62 

42 

7.0000E  04 

6.79801; 

16 

259.35 

44 

8.9600E  04 

5. 1610F 

16 

264.08 

46 

1 . 1200E  05 

3.939()F. 

16 

268.80 

48 

1.4000E  05 

3.0350F 

16 

272.15 

50 

1.7920E  05 

2.5720F 

16 

272.15 

52 

2.2400E  05 

1.8600F 

16 

271  . M 

54 

2.8000F.  05 

1 .4710F 

16 

267.21 

56 

3.5000E  05 

1 . 1590E 

16 

263.28 

58 

4.3400E  05 

9.1050F 

15 

259 . 36 

60 

5.3200E  05 

7. 1440E 

15 

254.79 

62 

7.0000E  05 

5.6360F 

15 

247.35 

64 

8.6800E  05 

4.4160F 

15 

239.91 

66 

1.0500E  06 

3.4350E 

15 

232.47 

68 

1.3440E  06 

2.6620E 

15 

225.04 

70 

1.6800E  06 

2.0260E 

15 

217.61 

72 

2.1000E  06 

1.5550E 

15 

210.19 

74 

2.6600E  06 

1 . 1520E 

15 

202.77 

76 

3.3600E  06 

8.5540E 

14 

195.36 

78 

4.2000E  06 

6.2810E 

14 

187.95 

80 

5.3200E  06 

4,5560E 

14 

180.54 

1 
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TABLE  2-2 

PHOTOLYSIS  PROCESSES  (soc'S 


0^  + hw  •■2  0 

0^  + hv  -*  0(  *1))  ♦ 0, 

Oj  ♦ hv  > 0(^P)  ♦ 0, 

•'4 

H,o  ♦ hv>  • II  + on 

^5 

N^O  + h\;  > + 0 

CH.  + hv  -►  CM,  * it 

4 3 

/ 

CHjCl  + hv  • CH^  Cl 

■^8 

CFCl.  hv  • CFCl  , ♦ Cl 
.5  - 

CF^Cl,  + hv  - CF,C1  ♦ Cl 

•^0 

CCl  + hv  - ecu  Cl 

4 ,■) 

■’ll 

HCl  + hv  • 11  ♦ Cl 

■’12 

NO^  ♦ hv  • NO  + 0 

•’13 

NO^  + hv  * NO  ♦ 0, 

■’h 

NOj  ♦ hv  * NO,  + 0 

■’is 

N,  Or  ♦ hv  -•  NO.  + NO, 

2 5 ■•>2 

^16 

llNOj  + hv  - OH  + NO^ 

•’17 

NO  ♦ hv  - N + 0 

■’18 

11,02  + hv  -►  2011 

^19 

HO2  hv  --  H + 0, 

■’20 

CIO  + hv  ► Cl  0 

■’21 

HOCl  + hv  - OH  + Cl 

•’22 

CIONO,  hv  - CIO  NO, 

•'23 

H2CO  ♦ hv  - H,  ♦ CO 

■^24 

H,CO  + hv  >11  ♦ HCO 

3 


o 

Environments  (19b5).  For  the  spectra]  region  between  1750-3000A  flux 


o 

measurements  were  adopted  from  Detwiler,  et . al . (1961).  Below  1750A, 
the  more  recent  data  by  Aiding,  et . al.  (1970)  are  utilized.  Computations 
are  made  using  either  a 24-hour  averaged  value  of  the  solar  flux  or  a 
single  solar  zenith  angle  (specified  by  ISWIT,  Section  4.4).  Table  2-3 
contains  the  reactions  and  adopted  rate  constants  for  the  relevant  odd 
oxygen,  hydrogen,  nitrogen,  and  chlorine  species.  These  rates  are 
referenced  to  80  km.  Temperature  dependence  of  the  rate  constants  as  a 
function  of  the  temperature  profile  is  given. 

2.2  Summary  of  Relevant  Stratospheric  Chemistry 

This  section  provides  a brief  review  of  the  critical  atmospheric  species 
handled  by  the  CMSP  program. 

The  chemistry  of  atmospheric  ozone  was  formulated  by  Chapman 

(1930).  Chapman's  model  consists  of  four  reactions  involving  only 

oxygen  chemistry.  He  proposed  that  ozone  is  initiated  by  photolysis 

o 

of  0^  in  the  Herzberg  continuum  below  2400  A,  as 

0.,  + hv  - 20  (2-4) 

followed  by  the  three  body  reaction 

0 + 0.,  + M - Oj  ♦ M (2-5) 

Ozone  may  be  recycled  by 

Oj  + hv  -»■  0^  0 (2-6) 

followed  by  (2-5).  Odd  oxygen  (0,  0^)  is  removed  by 

0 + Oj  -»•  2O2  (2-7) 

Using  reactions  (2-4)  to  (2-7),  and  assuming  photochemical  equilibrium 
conditions,  ozone  concentration  may  be  expressed  in  a simple  analytic  form: 
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TABLi;  2-3 


Kl.ACTlDN  RATI 

(AS  A IlINCilON  Ot-  AUrnilDI  , Z)  • ^ 
• I XI’  (B/n.MI>  (Zll 


No.  R1  ACTION  A II 


1 

OH  ♦ Cll.Ai;i, 

• CH2CI.  ♦ 1120 

l.(>bl.-12 

-1070. 

z 

1120  » 0('|)) 

• 2011 

.’.ASl.-lD 

0. 

t 

CII4  ♦ 0('l)) 

• CHA  » OH 

1 .401:- 10 

0. 

\ 

II.’  ♦ 0('|)) 

• Oil  > 11 

1 .001-10 

0. 

s 

II  ♦ 02  * M 

• 1102  • M 

1 .801. -A.’ 

.A40. 

<1 

II  • OA 

• (HI  • 02 

.’.(•0i:-l  1 

0. 

. 

OH  ♦ OA 

- 1102  ♦ 02 

.’.AOi:-!.’ 

- 1 1 2S  . 

s 

OH  ♦ 11202 

« 1120  ♦ 1102 

1 .001'.- 11 

-7S(I. 

>) 

1102  • OA 

• Oil  * 202 

1.001  -1  A 

-IS.’S. 

10 

1102  ♦ 0 

• Oil  * 02 

1 .OOP- 10 

-250. 

1 1 

1102  ♦ NO 

• OH  ♦ N02 

l.lOl.-ll 

-1000. 

i.’ 

(102  • CI.0 

• IICI.0  » 02 

0.0 

0. 

1 A 

1102  ♦ 1102 

• 11202  ♦ 02 

S. OOP- 12 

-SOI). 

II 

1102  > OH 

• 1120  ♦ 02 

2.001-11 

0. 

IS 

1102  ♦ Cl, 

■ HCI.  ♦ 02 

A.OOP-1  1 

0. 

10 

11  ♦ 1102 

- 112  » 02 

1. OOP- 11 

0. 

17 

11  * 1102 

• 2011 

4.20P.-10 

-9S0. 

18 

Oil  ♦ CO 

• II  ♦ C02 

2.10P-1A 

-1  IS. 

19 

OH  ♦ 0 

• II  ♦ 02 

1 .001.-10 

-2. SO. 

.’0 

OH  ♦ HCI. 

• 1120  ♦ Cl. 

2. OOP- 12 

-AlA. 

.’1 

OH  ♦ Cl  14 

• 1120  ♦ CHA 

2.A61.-12 

-1710. 

.’A 

OH  ♦ HNO.A 

« 1120  ♦ NOA 

1 .OOP-12 

-liOO. 

.’1 

Oil  ♦ Oil 

• 1120  ♦ 0 

l.7()i:-IZ 

0. 

.’S 

OH  * 112 

<•  1120  « II 

(■.70P-I2 

-2010. 

Zo 

Cl.  » 112 

• HCI,  ♦ 11 

S.70P-n 

-2400. 

.’7 

Cl.  » 11202 

’•  IICl,  ♦ 1102 

().00P-1A 

0. 

.’8 

CI.0  ♦ N02  » M 

» CCNOA  ♦ M 

A.80P-AA 

KISS. 

.’*» 

Cl,  ♦ OA 

- Cl.0  ♦ 02 

2.70P-11 

-257. 

AO 

Cl  * CH4 

• IK:1,  ♦ CHA 

7.29P-12 

-12(iO. 

A| 

CI.0  * 0 

- Cl.  ♦ 02 

1 .07P-10 

-221. 

A.’ 

Cl,0  ♦ NO 

• Cl.  » N02 

2. OOP- 11 

0. 

A A 

0 » HCI. 

• OH  ♦ Cl, 

0.0 

0. 

A4 

0 * 02  ♦ M 

- OA  » M 

1 .OSP.-AI 

S20. 

AS 

0 ♦ OA 

- 202 

1 . AOP- 1 1 

-2140. 

Ao 

NO.’  ♦ NOA 

• N20S* 

1 .001.-12 

0. 

A 8 

N20S*  ♦ M 

• N20S  ♦ M 

A.70i:-1  1 

0. 

All 

N20S  ♦ M 

- N.’OS*  ♦ M 

9.  OOP -0(1 

-9700. 

10 

NO  ♦ OA 

NO.’  *0  2 

2.AO»-I2 

-1450. 

41 

NO.’  ♦ oA 

• NOA  ♦ 02 

1.20P-1A 

-2450. 

■iZ 

NO.’  ♦ 0 

• NO  ♦ oZ 

9. 12P-12 

0. 

4 A 

N.’O  ♦ 01 ’H) 

» N2  ♦ 02 

S.OOP-1 1 

0. 

44 

N20  ♦ 0('|)) 

• .’NO 

7. OOP- 11 

0. 

IS 

N ♦ NO 

• N2  ♦ 0 

2. OOP- 11 

0. 

40 

N * 02 

* NO  * 0 

S. SOP- 12 

-A 200. 

4 7 

0('n)  ♦ ciCl.A 

- PRODUCTS 

A. 00*- 10 

0. 

48 

0(M))  * CI.’Cl.A 

. PRODUCTS 

A. OOP- 10 

0. 

49 

ocm  « cii.Aci, 

» OH  ♦ CH2C1. 

0.0 

0. 

SO 

0('i))  ♦ <:ci.4 

• PRODUCTS 

0.0 

0. 

SI 

0('l))  * M 

• 0 » M 

2.00P-I 1 

107. 

RiMi'tioMH  Whosi'  R.iton  Art’  Ca It  iil iit  ctl  By  lUffcront  rorniulrtc  Are: 

ZZ  Oil  * NO.’  » M . ItNO.A  ♦ M R • . .M.- I .<*1  XI’ (SHO . / IT’m]i , ( 1 / (2 .01  I S ♦ M(Z)) 

S7  NZOr.*  • NO.’  • NOT  R ♦ I .01  ♦B*M(2)/ (.’.Ol  l9tM(r,n  • 1.017 
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where  and  arc  the  photolysis  rates  for  reaction  (2-4)  and  (2-S)  and 
and  are  the  rate  constants  for  reactions  (2-5)  and  (2-7),  respectively. 

Equation  (2-8)  gives  a good  first  order  model  of  the  vertical  distribu- 
tion of  atmospheric  ozone.  It  successfully  predicts  the  ozone  peak  at 
around  25  km.  However,  it  predicts  too  much  ozone  at  all  altitudes  above 
22  km,  and  it  overestimates  the  total  ozone  abundance  by  about  a factor 
of  2.  lurthermore , Chapman's  simple  model  does  not  include  atmospheric 
transport  processes  and  cannot  account  for  the  observed  latitudinal  dis- 
tribution of  ozone  - low  values  at  low  latitudes  and  high  values  at  high 
latitudes . 

Bates  and  Nicolet  (1950)  first  attempted  to  remove  the  discrepancies 
between  observations  and  (;hapman's  theory  by  introducing  catalytic  hydrogen 
chemistry.  (the  HO^  family).  Catalysis  of  odd  oxygen  recombination  by 
hydrogen  species  (H,  OH,  HO^)  may  take  place  either  through 


11  0 -*•  OH  + 0., 

3 2 

(2-9) 

followed  by 

OH  0 -»■  0.,  ♦ 11; 

(2-10) 

or  through 

11  0^  + M •>  110^  + M 

(2-11) 

followed  by 

110^  + 0 -*•  Oil  + 0, 

(2-12) 

These  reactions  are  important  above  50  km,  and  account  for  a reduction 
by  about  a factor  of  2 to  3 in  the  concentration  of  ozone  calculated  by 
Equation  (2-8). 

Atmospheric  odd  hydrogen  (H,  OH,  HO^,  *<2^7^  mainly  formed  by 
reactions  involving  H^O  molecules; 

H^O  + 0(^D)  2 OH 


1 1 


(2-13) 


and 

H2O  ♦ hv  -*•  OH  > H (2-14) 

They  are  mainly  removed  by  reactions 

OH  + HO2  H2O  + O2  (2-15) 

and 

OH  ♦ H2O2  HO2  + H2O  (2-16) 

For  a given  H2O  concentration,  the  abundance  of  odd  hydrogen  is 
mainly  controlled  by  reactions  (2-13)  to  (2-16).  Reaction  (2-15)  is  the 
dominant  loss  process  for  odd  hydrogen  above  35  km. 

The  principal  stratospheric  sink  for  0^  was  not  identified  until 
1970  when  Crutzen  (1970)  and  Johnston  (1971)  suggested  that  nitric  oxide 
(NO)  can  catalytically  recombine  0 and  0^  through  the  reaction 

NO  + Oj  -*■  NO2  + O2  (2-17) 

followed  by 

NO2  > 0 -*•  NO  + O2  (2-18) 

Oxides  of  nitrogen,  NO^  (NO,  NO2,  NO^,  N20g,  HNO^)  are  formed  in 
the  stratosphere  by  photochemical  decomposition  of  N2O  (McElroy  and 
McConnell,  1971): 

N2O  + 0(^D)  2N0  (2-19) 

Nitrous  oxide  (N2O)  is  mainly  produced  in  soil  as  a by-product  of 
the  denitrification  process,  with  some  contribution  from  high  temperature 
combustion  processes. 

The  possible  importance  of  chlorine  chemistry  in  the  stratosphere 
was  noted  by  Wofsy  and  McElroy  (1974)  and  by  Stolarski  and  Cicerone 
(1974) . They  suggested  that  free  chlorine  may  play  a role  similar  to  NO^ 
in  the  recombination  of  0 and  0^  through  the  reactions 

Ct  Oj  CtO  O2  (2-20) 
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followed  by 


CHO  * 0 ->■  Cl  + 0^  (2-21) 

A source  of  stratospheric  Cl  was  not  identified  until  Molina  and 
Rowland  (1974)  suggested  the  photolysis  of  flourocarbons  (F-11,  F-12) 
through  the  reactions 

CFCtj  + hv  CFCt^  + Cl  (2-22) 

and 

C?^Cl^  + hv  CF2Cil  < Cl  (2-23) 

These  reactions  constitute  the  basis  of  the  CtX  family  of  the  CMSP  program. 

Theoretical  model  calculations  [Wofsy  et . al.  (1975),  Crutzen  (1974)] 
have  shown  that  continued  release  of  flourocarbons  (CFMs)  at  1973  production 
rates  might  lead  to  approximately  7 to  12  percent  ozone  reduction  in  the 
year  2200.  These  results  have  led  to  the  current  concern  regarding  the 
effects  of  CFMs  on  stratospheric  ozone. 

Prior  to  1976,  it  was  thought  that  HCt  was  the  only  inert  form  of 
odd  chlorine  species.  The  chemistry  of  chlorine  nitrate,  CJIONO2,  was 
ignored  until  Rowland  et.  al . (1976)  measured  the  absorption  cross  section 
of  Cil0N02,  which  suggested  its  appreciable  life  time  ('v  1 day)  in  the 
mid-stratosphere.  Chlorine  nitrate  is  formed  by  a three  body  reaction 

CtO  NO2  + M -*■  CIIONO2  ■••M  (2-24) 

with  a rate  constant 

k2^  = 5.1  X 10'^^  exp(-900/T) 

Formation  of  C)!.0N02  would  tie  up  the  active  Ct  and  NO^  -species,  and 
could  lower  the  catalytic  efficiency  of  both  the  CtX  and  NO^  cycles. 
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3.  Development  of  the  Radiative  Transfer  Section 


3.1  Discussion 

In  the  basic  version  of  the  CMSP  program  only  the  most  elementary 
radiative  transfer  process,  that  of  absorption  by  molecular  oxygen  and 
ozone,  is  incorporated  within  the  calculation  of  photodissociation  rates. 
However,  surface  reflection  and  atmospheric  multiple  scattering  of  inci- 
dent solar  radiation  by  molecules  and  aerosols  can  significantly  enhance 
the  photolysis  rates  of  certain  stratospheric  species  (Luther  and  Gelinas, 
1976)  and  may  have  an  appreciable  effect  on  stratospheric  photochemistry 
(Sze  and  Tripp,  1977). 

The  photodissociation  rate  (sec  ^)  of  species  i at  altitude  z is 
given  by: 


Ji(t,z)  = (t,z) 


dX 


(3-1) 


where 


o = absorption  cross  section  of  species  i at  wavelength  A (cm  ) 
41,=  quantum  yield  of  species  i at  wavelength  X (dimensionless) 

A X 


7fF..(t,z)  = flux  at  level  z available  for  photodissociations 

-2  -1  °-l 

at  a time  t (photons  cm  sec  A ) . 

In  the  pure  absorption  model,  the  available  photons  are  calculated  based  on 
attenuation  of  the  direct  solar  beam  by  0^  and  0^  or: 

tiF  (t,z)  = ttF  exp  [-t(z)/u  ] (3-2) 

, A O O 

where 

ttF  = unattenuated  solar  flux 
o 

= cosine  of  the  solar  zenith  eingle 


t(z) 


f 

= 1 E a.  n. 

I , ..a  . 


(z)  dz 


0.  : absorption  cross  section  of  species  i. 

1 f 3 

n^:  local  number  of  density  of  species  i. 


(3-3) 

(cm^) 

(cm‘^) 
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The  flux  depends  on  time  through  variation  of  the  solar  zenith  angle  with 
time  of  day: 


p = cos  e cos  6 cos  / t \ + sin  0 sin  6 (3-4) 

° U4oj 

where 

0 = latitude  (deg.) 

6 = solar  declination  angle  (deg.) 
t = local  time  (sec) 

The  single  solar  zenith  angle  photolysis  rate  is  given  by  (3-1) . 

The  24  hour  averaged  photolysis  rate  is  given  by: 

_ . 86400 

•’i  ' 86400  / <’-5) 

0 

In  order  to  account  for  the  effects  of  multiple  scattering,  the 
radiative  transfer  equation: 

y = I(x,p)  . S(T,p)  (3-6) 

must  be  solved  at  each  level  of  the  atmosphere  for  each  frequency. 

The  flux  available  for  photodissociation  ttF  is  then  given  by: 

+ 1 

F(t)  =2  / I (t,p)  dp  (3-7) 

-1 

In  Eqn  (3-6),  S(t,p)  is  the  source  function  which  obeys  the  integral  equa- 
tion : 

S(t)  = — ^ Fq  • exp  (-t/po) 

T* 

+ / s(t)E  (ft-T|)dt 

2 0 


♦ 2 • ‘"O  (t)  »R-  E (t*-t) 
2 


T* 

/ S(t)  E_(T*-t)dt  (3-8) 

0 4 
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Wo  • Fq  • R • • exp  (-T*/wo) 


where 


E^(x)  = [ exp  C-x/w)  li  ^ 


R = ground  reflectivity 
r*  = (total)  optical  depth 


00 

= J E a.  n. 

•h  1 


, (z)  dz 


and 


oiQ  = single  scattering  albedo 


I o . n.  (z) 
s,i  1 ^ 

1 


^ o . n.  (z)  + E o .n.  (z) 
s,i  1 .a, 11 


In  Eqn  (3-8)  the  optical  depth  t is  computed  using  the  extinction  cross 
section  (o^^  = + '’a.i)  *^s,i  scattering  cross  section  of 

species  i as  compared  with  the  absorption  cross  section  only  in  Eqn  (3-3) 

Sources  of  scattering  opacity  include  both  atmospheric  gases  (Rayleigh 
scattering)  and  polydisperse  aerosol  distributions  (Mie  scattering). 
Evaluation  of  the  Rayleigh  scattering  cross  section  at  each  level  is 
accomplished  using  (McClatchey,  et.  al.,  1972) 


^s, Rayleigh 


9.807  X ‘^•0117 


N(z) 


N(z  = 0)  (3.9) 


where : 


1, 


frequency  in  wave  numbers  (cm  ) 


-3, 


N(z)  = total  number  density  at  level  z (cm  ) 

Aerosol  models  have  been  adopted  from  Shettle  and  Fenn  (1976)  which  provides 
the  wavelength  dependence  of  the  absorption  and  extinction  cross  sections 
for  four  characteristic  aerosol  models:  maritime,  urban,  rural,  and  tropospheric. 
The  first  three  are,  strictly  speaking,  boundary  layer  models  while  the 
tropospheric  model  is  more  characteristic  of  the  atmosphere  above  the  boundary 


It) 


I 


r 


layer.  The  altitude  variation  of  the  aerosol  number  densities  (Table  3-1) 
is  assumed  to  be  the  same  for  all  models  and  is  taken  from  Elterman  (1968). 

The  surface  is  assumed  to  be  Lambertian.  The  reflectivity  (R)  is 
defined  as  the  ratio  between  the  incoming  and  outgoing  fluxes  at  the  surface 
and  the  reflection  is  isotropic  (i.e.  no  angle  preference  for  the  outgoing 
radiance).  The  reflected  intensity  at  surface  I(t*,m)  can  be  written  as 


I (T*.y)  = 2 


S(t)  E2  (T*-t)dt 


(3-10) 


3.2  Implementation  of  the  Variational -Iterative  (VI)  Technique 

Once  equation  (3-8)  is  solved  for  the  source  function,  the  total 
flux  available  for  photodissociation  itF(T)  in  the  fully  scatering  case 
is  given  by: 

F(t)  = F^  exp(-T/vi^)  + 2 j S(t)E^(|t-T|)  dt 


+ 2 Fq  R E,  (T*-t)  exp(-T*/y^) 


r 

+ 4 R • E2(T*-t)  / S(t)  E2(T*-t)  dt 


(3-11) 


The  physical  meaning  of  each  term  in  Equation  (3-11)  is  as  follows: 

1)  the  first  term  represents  the  attenuated  direct  beam.  (This  is 
the  only  term  used  in  a pure  absorption  model). 

2)  the  second  term  represents  the  diffuse  radiation  in  the  atmos- 
phere due  to  scattering  of  the  direct  beam; 

3)  the  third  term  represents  the  attenuated  direct  beam  reflected 
from  the  surface  with  reflectivity  R; 

4)  the  fourth  term  represents  the  diffuse  radiation  due  to  scatter- 
ing of  the  reflected  beam. 

This  may  be  substituted  into  (3-1)  to  evaluate  the  photodissociation 


I 


rates. 


17 


TABLE  3-1 


ALTITUDE  VARIATION  OF  AEROSOL  NUMBER  DENSITIES 


Altitude 

(km) 

Aerosol 

Number 

Density 

(cm-^) 

Altitude 

(km) 

Aerosol 

Number 

Density 

(cm-*) 

0 

2.8280E+03 

42 

7.9600E-02 

2 

5.3710E+02 

44 

5.7040E-02 

4 

1.1920E+02 

46 

2.8290E-02 

6 

6.3370E+01 

48 

2.0990E-02 

8 

6.7690E+01 

50 

1.0780E-02 

10 

5.6750E+01 

52 

5.5800E-03 

12 

5.5850E+01 

54 

4.1140E-03 

14 

5.1480E+01 

56 

2.0780E-03 

16 

4.5110E+01 

58 

l,4950E-03 

18 

4.3140E+01 

60 

7.7350E-04 

20 

2.6670E+01 

62 

4.0030E-04 

22 

1.4555E+01 

64 

2,8800E-04 

24 

8.1260E+00 

66 

1.4900E-04 

26 

5.7060E+00 

68 

1.0720E-04 

28 

3.5740E+00 

70 

5.5500E-05 

30 

2.2380E+00 

72 

2.1440E-05 

32 

1.1480E+00 

74 

1.3320E-05 

34 

8.2230E-01 

76 

5.1440E-06 

36 

4.2190E-01 

78 

3.1960E-06 

38 

3.0220E-01 

80 

1.2340E-06 

40 

1.5500E-01 
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To  solve  the  integral  equation,  (3-8),  the  variational-interative 
technique  introduced  by  S:e  (1976)  was  used.  This  method,  in  essence. 


provides  a direct  way  for  constructing  an  approximate  source  function 
for  equation  (3-8)  and  allows  for  arbitrary  inhomogeneity  in  the  atmos- 
phere. It  has  been  shown  by  Burke  and  Sze  (1977)  that  the  variational- 
iterative  approach  requires  relatively  little  computational  time  to 
achieve  satisfactory  accuracy  in  comparison  to  other  standard  methods. 

In  the  variational-iterative  technique,  the  approximated  source 
function  can  be  expressed  as: 


d ci  O 


(3-12) 


where 


U (t)  = l.C.  V.(t)  , 

a 111 


(3-13) 


and  V^(t)  is  trial  function  for  the  ith  layer. 

The  total  optical  depth  x*  is  divided  into  (N-1)  layers  with  an 
average  single  scattering  albedo  assigned  to  each  layer  j.  The  simplest 
piece-wise  continuous  trial  functions  are  the  step  functions  defined  by 


V U) 


' 'j  - 'j  • 1 


0 T < T . ; T > T . , 

J J ♦ 1 


(3-14) 


It  can  be  shown  (Sze,  1976)  that  the  C.  are  solutions  to  the  following 
set  of  linear  algebraic  equations: 


Z M. . C.  = f.  . 

j=l  J 


(3-15) 


The  are  simply  given  by 


M.  . * 6 . . At  . 

ij  ij  J 


/u. uT  , 

‘ J.  Ji  • ‘ Bj(t)  d,  . 


T 


/ 


(3-16) 


T . 
1 


where 


6.  . = 
IJ 


1 for  i=j 

0 for  i/j, 

B.  (T)  = E.  (lT-t|)  dt  , 


and  f.  is 
1 


f “ O U r 
i -r  0 fiii 

4 i 


[exp(-T^/p^)  - exp 


The  smoothed  approximated  source  function  including  the  ground  reflection 
can  be  written  as 


(t) 


u.  fT)N-l 


Fq  exp  (-T/Vi^)  ^ -2- 


N-1 


♦ • R • E2  {t*-t)  [2  Cj^”  + Vi^exp(-T*/M^)]  (3-17) 


where 


^ ■ r 


'■'j+i 


(T*-t)  dt 
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subsequent  iterations 


Vi">  • ^ ‘-p  * 


^ f ■' 


(iT-tl)  S^(t)  dt 


•~2^^  • R • j"  E2(T*-t)  s^(t)  dt  + Vi^exp(-T*/Vj^)  ] 


(3-18) 


would  bring  the  source  function  to  the  desired  accuracy. 


3.3  Results 

The  results  of  two  relevant  calculations  using  the  models  described 
in  the  previous  sections  are  contained  in  Appendix  C.  (A  complete  des- 
cription of  the  output  format  is  given  in  Section  4.5.)  The  first  set 
of  profiles  is  for  an  absorption  only  model  where  net  fluxes  are  calcu- 
lated using  Kqn.  (3-2).  The  second  set  is  for  a complete  multiple  scat- 
tering calculation  [using  equation  (3-11)]  where  a surface  reflectivity 
of  0.2  is  assumed.  Both  calculations  use  a single  solar  zenith  angle 
given  by  cos  '(.707). 

Several  comparisons  can  be  made  between  the  calculations.  In  par- 
ticular, the  effect  of  multiple  scattering  and  surface  reflection  on  the 
photodissociation  rate  of  0^  be  seen.  Figure  3-1  illustrates  the  percent 
increase  in  the  value  of  C.I03  for  the  two  cases  cited.  A second  curve 
(for  a surface  reflectivity  of  0.8)  indicates  that  hig)ily  reflecting  sur- 
faces and/or  large  expanses  of  cloud  deck  may  have  a significant  impact 
on  stratospheric  photochemistry. 
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4.  Program  Description 
4 . 1 Summary 


The  Gtlorine  Model  Study  Program  (CMSP)  computer  code  consists  of  a 
main  program  (MAIN),  forty  subroutines,  function  subprograms,  and  a sub- 
program Block  Data  of  initialization  and  model  parameters.  The  primary 
function  of  the  main  program  is  to  select  one  of  two  operational  modes 
determined  by  "keywords"  read  from  the  input  set  (see  Section  5).  Speci- 

I 

fication  of  the  keyword  PARAMETER  calls  subroutine  INPARM  which  establishes 

I 

I 

the  initial  constants  tor  each  case.  The  keyword  "RUN"  directs  the  main 

I 

I 

program  to  call  subroutine  PHOCUM  which  conducts  the  actual  photochemical 
calculation  for  each  case.  A keyword  of  "ENDJOB"  causes  the  program  to 
terminate . 

Since  the  sequence  of  program  logic  is  somewhat  complex  due  to  the 
nature  of  the  problem,  this  section  provides  a narrative  description 
including  considerable  detail  within  many  of  the  relevant  subroutines. 

For  clarity,  housekeeping  subroutines  found  in  the  program  listing  (Appendix  A) 
are  neither  included  in  the  flow  chart  (Appendix  B)  nor  discussed  further 
in  this  section.  (These  subroutines  such  as  INPUT,  PAGE,  LINE,  DAY,  ERRM, 
etc.  perform  such  functions  as  page  turning  and  reading,  line  count,  date 
writing,  and  error  flagging.)  The  reader  is  urged  to  utilize  the  program 
listing  and  flow  chart  in  following  through  this  program  description. 

Table  4-1  provides  a schematic  view  of  the  CMSP  logic  which  may  be  help- 
ful. Here  the  most  important  subroutines  are  listed  according  to  their 
calling  order  and  priority  within  the  program.  Priority  is  designated 
by  levels:  Level  0 is  assigned  to  the  MAIN  program,  while  numerically 
higher  levels  are  more  distant  from  the  MAIN  program.  A level  3 subroutine, 
for  example,  will  return  to  a level  2 subroutine  and  may  call  a level  4 
subroutine.  The  overall  function  of  each  block  of  coding  is  designated 
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TAHI.i;  4-1 

SCHEMATIC  PREiSENTATION  OF  THE  CHLORINE 


MODEL  STUDY  PROGRAM  COMPUTER  CODE 


Level  0 


Level  I 


ALTGEN 

INPARM 


PHOCHM 


Level  2 


WEIGHT 

QSCATT 

CPHII 

SETUP 


RCONST 


SETUP 2 
R-IITER 


INITAL 


SOLVE, 


CFU)W 


Level  3 


EnCl/EDC2 


GOLDEN 

COMPJ 


PCLOX 


JACOB 


I.INEQN 


RINTER 

CSPEC 


RliPCN 


Level  4 


COMTAU 

OME.GA 


PCLOX 


Fund  ion 


Initialize 


Compute  J Values 


QUAD  "Short-Lived"  Sjiecies 


TRIDIA  "Long-Lived  Species 


RINTER 
SETUP  2 


r 

f 

j 

I at  the  right  of  the  table.  For  example,  PllOCHM  (Level  1)  calls  RJITER 

i 

(Level  2)  and  its  higher  level  subroutines  which  compute  photodissocia- 
tion rates  (so-called  "J"  values). 

I 4.2  Initialization;  BLOCK  DATA 

Although  not  contained  explicitly  within  the  flow  chart,  the  BLOCK 
DATA  section  constitutes  a significant  source  of  input  data  and  contains 
many  of  the  run  parameters  which  are  required  for  model  calculations. 
These  data  are  introduced  by  DATA  statements  which  are  made  accessible 
to  the  user  subroutines  by  means  of  labeled  COMMON  statements. 

Table  4-2  lists  the  important  model  variables  contained  within  BLOCK 
DATA  including  species  mixing  ratio  or  number  density  profiles,  rate 
constant  data,  photodissociation  cross  section  and  rate  values,  and 
model  atmosphere.  Additionally,  the  corresponding  labeled  COMMON  name 
is  given.  Values  arc  compiled  into  their  respective  array  locations 
based  on  their  dependence  on  altitude  or  wavelength.  Quantities 
characterizing  the  atmospheric  model  such  as  temperature  (TEMP)  and 
mixing  ratios  (H,011,  etc.)  are  given  as  level  values  at  2 km  intervals 
from  the  surface  to  80  km.  Wavelength  dependent  quantities  such  as  the 
solar  flux  (FL)  and  photodissociation  cross  sections  (Q02,  Q03  etc.)  are 
digitized  at  wavelengths  given  by  the  array  WL  such  that  WL(1)  is  the 
wavelength  at  which  the  cross  section  of  O2  is  QP2(1),  etc. 

In  addition  to  vertical  profiles  and  wavelength  dependent  spectra, 
BLOCK  DATA  also  contains  a large  number  of  default  values  for  branching 
parameters  and  other  initial  conditions  specifiable  for  a particular  case 
such  as  the  boundary  conditions  on  the  fluxes  or  mixing  ratios  of  certain 
species.  These  BLOCK  DATA  default  values  may  be  changed  by  utilizing 
the  NAMELIST  $INPUT  (see  Section  4.3.2)  if  desired,  otherwise  the 

! 

default  values  are  used.  A complete  description  of  these  data  is  given 
in  Section  5.2. 
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TABLE  4-2 

BLOCK  DATA  SUPPLIED  VALUES  AND  LABELED  COMMON  NAMES 


Labeled  Common  Name 
MODEL 


RATES 

RLOW 


SOLCON 


SOLCNl 


Variable  Name 

Identity 

Units 

TEMP 

temperature 

‘’k 

DM 

total  number  density 

-3 

cm 

DID 

0(D)  number  density 

-3 

cm 

nA23 

aerosol  number  density 

-3 

cm 

RA 

first  rate  constant 

3n  -1 
cm  sec 

RB 

second  rate  constant 

RN20 

mixing  ratio  of  N2O  at  1 

bottom 

v/v 

RNOX 

flux  of  NO  at  bottom 

X 

- 2 - 1 
cm  sec 

RCH4 

mixing  ratio  of  CH  at  1 

bottom 

v/v 

RFll 

4 

flux  of  flourocarbon  11 

-2  -1 
cm  sec 

RF12 

flux  of  flourocarbon  12 

-2  -1 
cm  sec 

RCH3C 

mixing  ratio  of  CH^Cl  at  bottom 

v/v 

RCLX 

mixing  ratio  of  Cl  at  bottom 

v/v 

RCCL4 

X 

flux  of  CCl.  at  bottom 

4 

-2  -1 
cm  sec 

R03 

mixing  ratio  of  0^  at  bottom 

v/v 

WL 

wavelength 

0 

A 

FL 

solar  flux 

-2,  -1 
cm  Sec 

Q02 

photodissociation  cross 

section 

^2 

2 

cm 

Q03 

photodissociation  cross 

section 

S 

2 

cm 

QCF2 

photodissociation  cross 

section 

CF2CI2 

2 

cm 

QCF3 

photodissociation  cross 

section 

CFCI3 

cm^ 

QCCL4 

photodissociation  cross 

section 

CCl^ 

4 

2 

cm 

QCH3C 

photodissociation  cross 

section 

CH3C1 

2 

cm" 

QCLN03 

photodissociation  cross 

section 

ClONO^ 

o 

cm" 

QN20 

photodissociation  cross 

section 

N2O 

2 

cm 

QHN03 

photodissociation  cross 

section 

HNO 

2 

cm 

QH202 

photodissociation  cross 

section 

H2O2 

2 

cm 

QN205 

photodissociation  cross 

sect  ion 

^2^5 

2 

cm 

QHCL 

photodissociation  cross 

section 

HCl 

cm" 

QHOCL 

photodissociation  cross 

section 

HOCl 

2 

cm 

qN02 

photodissociation  cross 

section 

NO2 

2 

cm 

QH20 

photodissociation  cross 

section 

H2O 

2 

cm 

TABLE  4-2  (Continued) 

BLOCK  DATA  SUPPLIED  VALUES  AND  LABELED  COMMON  NAMES 


Labeled  Common 
SPECIE 


PUKATi; 


Name  Variable  Name  Identity  Units 


H 

H number  density 

-3 

cm 

_ 7 

OH 

OH  niunber  density 

cm 

_ 7 

H02 

HO2  number  density 

cm 

-3 

H202 

H2O2  number  density 

cm 

_ 7 

03 

Oj  number  density 

cm 

_ 7 

0 

0 number  density 

0 

cm 

_ 7 

NO 

NO  number  density 

■j 

cm 

N02 

NO2  number  density 

-3 

cm 

HN03 

HNOj  number  density 

-3 

cm 

NOX 

NO^  mixing  ratio 

v/v 

CO 

CO  mixing  ratio 

v/v 

CH4 

CH^  mixing  ratio 

v/v 

H20 

II2O  mixing  ratio 

v/v 

M2 

H2  mixing  ratio 

v/v 

CLX 

Clx  mixing  ratio 

v/v 

JHCL 

photodissociation  rate 

HCl 

-1 

sec 

JCH4 

photodissociation  rate 

CH. 

4 

-1 

sec 

JN2(D 

photodissociation  rate 

N2O 

-1 

sec 

JN205 

photodissociation  rate 

-1 

sec 

-1 

sec 

JHN03 

photodissociation  rate 

HNO2 

JH202 

photodissociation  rate 

»2°2 

-1 

sec 

.IN02 

photodissociation  rate 

NO2 

-1 

sec 

JCF2 

photodissociation  rate 

CF2CI2 

-1 

sec 

JCF3 

photodissociation  rate 

CFCI3 

- i 

sec 

JH20 

photodissociation  rate 

H2O 

-1 

sec 

J03 

photodissociation  rate 

O3 

-1 

sec 

J02 

photodissociation  rate 

°2 

-1 

sec 

-1 

sec 

JHOCL 

photodissociation  rate 

HOCt 
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4.3  Initialization  Subroutines:  ALTGEN,  INPARM 

4.3.1  Subroutine  ALTGEN 

Upon  entering  the  MAIN  program,  subroutine  ALTGEN  is  called.  The 
primary  function  of  this  code  is  to  fill  the  array  ALT  which  is  contained 
in  labeled  COMMON,  MODEL  and  gives  the  altitude  of  each  level  in  2 km 
(2.0  X 10^  cm)  increments  from  0.0  to  80.0  km.  However,  ALTGEN  also 
provides  revised  solar  flux  data  (overiding  the  values  specified  in  BLOCK 
DATA)  in  the  1900  to  225o8  wavelength  region  and  photodissociation  cross 
sections  for  chlorine  nitrate.  Additionally,  the  aerosol  model  number 
density  distribution  with  height  is  specified  by  the  parameter  IAER0[=  0 (23  km) 
or  = 1 (5  km)]  and  the  integrated  total  number  density  of  molecules  DMINT, 
and  aerosols  DAINT  are  computed  above  a given  level.  These  integrated 
densities  are  later  used  in  the  evaluation  of  optical  depth.  After  ALTGEN 
is  called  control  is  returned  to  MAIN. 

4.3.2  Subroutine  INPARM 

The  keyword  PARAMETERS  read  from  the  input  set  directs  the  program 
to  call  subroutine  INPARM.  INPARM  establishes  the  basic  input  parameters 
required  to  run  the  model  calculation.  This  is  accomplished  both  by  direct 
modification  of  previously  stored  values  in  BLOCK  DATA  and  by  calling  higher 
level  subroutines  to  perform  additional  computations  on  the  basic  input  set. 

A NAMELIST  Statement  is  provided  which  may  be  used  (see  Section  S)  to  change 
the  values  of  any  of  the  formatted  parameters  from  the  default  values. 

For  example,  ISWIT  which  determines  whether  a single  sun  angle 
(=0)  or  a 24  hour  average  (-1)  is  used  in  the  J-value  computation  may 
be  changed  from  the  default  value  (1)  to  zero  by  using  the  NAMELIST  $INPirr. 

The  subroutine  listing  (Appendix  A)  illustrates  which  parameters  may  be 
changed . 


Certain  basic  calculations  are  performed  by  calling  subroutines 


WEIGHT,  QSCATT,  CPHll,  SETUP,  and  RCONST. 

Subroutine  WEIGHT  computes  the  length  of  tne  day  using  tne  para- 
meters LAT  and  DEL.  The  day  is  then  divided  into  twelve  equal  time 
intervals  (one  hour  at  equinox)  and  the  cosine  of  the  solar  zenith  angle 
is  computed  at  the  midpoint  of  these  intervals.  Six  values  (those  on 
either  side  of  noon  are  equal)  of  the  reciprocal  of  the  cosine  of  the 
solar  zenith  angle  are  stored  in  array  A.  These  are  used  to  compute 
the  24  hour  average  model  in  subroutine  COMTAU  (Section  4.4.1). 

Subroutine  QSCATT  computes  the  Rayleigh  scattering  coefficient 
QRAY, aerosol  extinction  coefficient  QAE,  and  aerosol  absorption  coefficient 
QAA  at  the  surface  ( z=0)  as  a function  of  wavelength.  A particular 
aerosol  size  distribution  is  specified  by  the  parameter  ISIZE  which 
selects  one  of  four  given  models  or  a user's  own  model.  (See  Section  5.3). 
These  values  are  later  used  in  subroutine  OMEGA  to  compute  optical  depth 
and  the  single  scattering  albedo  profile  when  multiple  scattering  is  con- 
sidered. 

Subroutine  CPHll  allows  a quantum  yield  PHIl  to  be  introduced  into 
the  evaluation  of  the  photodissociation  rate  for  CIONO^.  Furthermore, 
it  may  be  given  one  value  Pll  for  wavelengths  WL(1)  to  WL(Il),  inclusive, 
and  a second  value  P22  from  WL(I1+1)  to  the  upper  wavelencth  limit. 

Default  values  in  BLOCK  DATA  are  II  = 59,  Pll  = P22  = 1.0,  so  that  the 
quantum  yield  is  unity. 

Subroutine  SETUP  establishes  the  eddy  coefficient  model  to  be  used 
and  operates  on  the  basic  41  level  model  atmosphere  data.  Upon  entering 
the  subroutine,  Hunten's  eddy  coefficients  are  read  into  array  EK  by  a 
DATA  statement.  If  NEDDY  is  zero,  these  values  are  used. 
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I NEDDY  is  either  one  or  two,  subroutine  EDCl  or  EDC2,  respectively,  is 
called  which  substitutes  either  Chang's  or  an  analytic  form  for  these 
values.  NEDDY  has  a default  value  of  zero  and  may  be  changed  in  the 
NAMELIST  $IMPUT.  A factor  FKK  (default  value  - 1.0)  may  be  specified 
to  multiply  any  of  these  profiles  by  a constant  value.  The  basic  model 
atmosphere  data  (TEMP,  DM,  and  EK)  are  then  interpolated  to  produce 
arrays  (CIEMP,  COM,  and  CEK)  of  81  levels  of  1 km  thickness  from  the 
data  arrays  containing  41  levels  of  2 km  thickness.  These  results  are 
printed  out  at  2 km  intervals. 

Subroutine  RCONST  calculates  the  reaction  rates  of  each  of  the 
chemical  reactions  as  a function  of  temperature  at  the  81  levels  of  the 
atmosphere.  The  required  input  consists  of  the  model  atmosphere  tempera- 
ture profile  and  the  first  and  second  Arrhenius  rate  constants  RA  and  RB 
from  BLOCK  DATA  or  NAMELIST  $INPIIT  For  each  reaction  I and  atmospheric 
level  J the  reaction  rate  RATE  is  given  by: 

RATE(I,J)  = RA(I)  * EXP(RB(I)/CTEMP(J)) 

Rates  are  computed  explicitly  for  reactions  which  do  not  obey  the  above 
relation.  A table  of  reactions  and  rate  constant  information  is  printed. 

(see  listing.  Appendix  A).  After  execution  of  RCONST  control  reverts  to 
INPARM  which  returns  to  MAIN. 

4.4  Main  Calculation:  PHOCHM 

As  indicated  in  the  flow  chart  the  keyword  RUN  calls  the  subroutine 
PHOCHM.  PHOCHM  controls  the  remainder  of  the  calculation  for  a particular 
case  and  may  be  considered  as  the  main  program  for  most  purposes. 

As  PHOCHM  is  entered  the  steady  state  version  is  selected  by  specify- 
ing FT  = 0.,  FA  = 2.,  FB  = 0.  and  FM  = 0.  (these  values  will  be  used  by  sub- 
routine COEF  in  performing  the  long-lived  species  calculations.  (see  4.4.S). 
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The  functions  performed  within  PHOCHM  may  be  divided  into  three  areas: 

(a)  computation  of  photodissociation  rates;  (b)  calculations  for  short- 
lived species  (no  diffusion);  and  (c)  calculations  for  long-lived  species 
(vertical  diffusion).  Most  evaluations  are  made  external  to  PHOCHM  by 
calling  appropriate  higher  level  subroutines. 

4.4.1  Subroutine  RJITER:  Computation  of  Photodissociation  Rates 

Subroutine  RJITER  functions  as  a calling  program  to  facilitate  the 
calculation  of  photodissociation  rates  at  each  atmospheric  level.  Its 
two  arguments  ISWIT  and  ISCATT  are  carried  in  COMMON  to  PHOCHM  and 

J 

specify  the  nature  of  the  time  averaging  (single  solar  zenith  angle  vs.  24  hour 

average)  and  whether  multiple  scattering  is  considered,  respectively.  The  j 

upper  limit  for  the  wavelength  integration  lU  is  set  in  RJITER.  For  i 

o 

the  absorption  only  model,  the  integration  stops  at  4025A  and  the  con-  j 

I 

tributions  to  the  dissociation  of  0,  from  the  visible  are  included  as  a ! 

3 j 

j constant  factor  PJ03.  (set  in  BLOCK  DATA).  When  multiple  scattering  is 

, considered,  however,  the  integration  is  extended  through  the  visible 

I region. 

1 

i 

RJITER  calls  subroutine  COLDEN  which  computes  the  column  densities 

■ 1 

, of  ozone  from  a given  level  to  the  top  of  the  atmosphere.  These  values,  ' 

i 

DOSINT,  are  used  in  the  computation  of  optical  depth.  \ 

Subroutine  COMPJ  called  from  RJITER  performs  the  actual  wavelength  i 

’ integration.  The  specific  details  of  the  calculation  depend  on  the  \ 

i parameters  ISWIT  and  ISCATT.  For  the  simplest  case  ISWIT  = 0,  ISCATT  = 0, 

’ a fixed  solar  zenith  angle  CMU  = .707  is  used  and  the  number  of  photons 

cm  ^sec  ^ available  for  photodissociation  at  a particular  level  is  based 
on  simple  attenuation  of  the  direct  solar  beam  by  0,,  and  0^  above  the 
level.  That  is,  optical  depth  TAD  is  computed  as: 

TAU  = Q03  * D03INT  + Q02  * DMINT  * p02)  and  DMINT  is  the  integrated 
total  number  density. 
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J values  are  then  computed  in  a straightforward  manner  by  taking  the 
product  of  available  flux  (=  FL  * EXP  (-TAU/GMU)),  cross  section  (Q02, 

Q03,  QHCl,  etc.) I and  quantum  yield  if  required  (PHIl)  at  a given 
wavelength  and  integrating  over  the  wavelength  interval.  Flux  is  reduced 
by  a factor  of  0.5  (RDF)  for  the  single  angle  calculation  to  account  for 
night  and  day. 

When  ISWIT  = 1 and  a 24  hour  average  model  is  required,  the  trans- 
missivity from  the  top  of  the  atmosphere  to  a given  level  is  weighted 
by  calling  a subroutine  CONfTAU  which  uses  the  array  of  coefficients  A 
computed  by  WEIGHT  to  simulate  the  variation  of  solar  zenith  angle  over 

a day.  The  subroutine  COMTAU  essentially  performs  the  calculation: 

12 

TRAN  (24  hr  average)  = ^ ^ EXP  (-TAII  * A (I)) 

I=I 

When  a multiple  scattering  calculation  is  desired  (ISCATT  = 1)  two 
additional  subroutines  OMEGA  and  VIM  are  utilized,  (see  Section  3 for 
details  of  the  scattering  model) . OMEGA  computes  optical  depth  from  a 
given  level  to  space  as  the  sum  of  both  attenuation  (molecular  and 
aerosol  and  scattering  (aerosol  and  Rayleigh) . Aerosol  absorption  and 
extinction  and  Rayleigh  scattering  coefficients  QAA,  QAE,  QRAY  are 
carried  in  COMMON  from  subroutine  QSCATT.  Additionally,  a single  scatter- 
ing albedo  profile  as  a function  of  level  is  computed.  An  interpolation 
scheme  creates  a single  scattering  albedo  profile  as  a function  of  optical 
depth  which  is  input  to  subroutine  VIM  which  performs  a variational -itera- 
tive method  multiple  scattering  calculation  and  returns  the  net  flux 
available  for  photodissociation  at  a given  optical  depth  normalized  to 
the  solar  flux.  This  mean  intensity  includes  contributions  from  the 
attenuated  direct  solar  beam  (absorption  only  case)  and  diffuse  contribu- 
tions reflected  from  the  surface  and  scattered  by  molecules  and  aerosol 
particles.  The  surface  reflectivity  REF  is  contained  in  NAMELIST. 


Subroutine  OMEGA  uses  its  knowledge  of  the  altitude  variation  of  optical 
depth  to  reinterpolate  the  net  flux  vs.  optical  depth  profile  to  a 

net  flux  at  altitude  level  profile.  These  values  are  placed  in 
array  F and  returned  to  COMPJ  for  integration  into  the  J value  calcula- 
tion. Subroutine  VIM  calls  its  own  family  of  higher  order  subroutines 
which  function  somewhat  independently  of  the  overall  CMSP  code.  A schemat 
presentation  of  the  VIM  subroutine  heirarchy  is  presented  in  Table  4-3 
in  relation  to  the  total  CMSP  sequence. 

In  order  to  account  for  the  desired  time  averaging,  OMEGA  must  be 
called  for  each  GMU  desired.  Therefore,  if  a 24  hour  average  model  is 
required  (ISWIT  =1),  OMEGA  is  called  for  each  GMU  using  the  solar  zenith 
angles  computed  by  WEIGHT  (=  1/A)  and  averaging  over  24  hours  as  was  done 
for  the  absorption  only  case. 

4.4.2  Subroutines  INITAL,  SOLVE:  Short-lived  Species 

After  photodissociation  rates  based  on  the  first  guess  ozone  con- 
centrations are  returned  to  PHOCHM  by  RJITER,  calculations  of  the  species 
concentration  profiles  begin.  As  noted  in  Table  4.1  the  PHOCHM  code 
sequence  from  this  point  can  be  divided  into  segments  handling  the  short- 
lived species  and  the  long-lived  species.  An  iteration  counter  I is 
incremented  by  statement  10  in  PHOCHM  after  initialization  to  zero.  This 
index  keeps  account  of  the  number  of  times  the  program  is  executed  to 
reach  convergence.  An  upper  limit  of  50  iterations  is  assigned.  For  all 
iterations  after  the  first  the  old  OH  and  0^  profiles  (OLDOH,003)  are 
saved  for  convergence  testing  before  being  recomputed.  The  computed 
photodissociation  rates  of  0^,  0^,  HNO^,  H^O^.  and  N^O^  are  substituted 
for  the  BLOCK  DATA  values  at  each  level  and  the  concentration  profile  of 


TABLE  4-3  SCHEMATIC  PRESENTATION  OF  SUBROUTINE  VIM  SEQUENCE 


MAIN 

PHOCIM 

RJITER 

COMPJ 

OMEGA 

VIM 

RMATRI 

LINEQN 

SG 

SlI 

SE 

SINT 

E 

E2 

E3 


0(0),  DID,  is  computed  based  on  equilibrium  between  the  reactions; 

0,  + hv  0,  ♦ 0(^D)  j = CJ031 
0(h))  + M ► 0 ♦ M k = R/Vrii  (51) 
tliis  yields  the  relationship: 

1)11)  = CJOjI  *03/kATL(51)  * DM 
at  each  level. 

The  calculation  continues  with  a DO  loop  from  statement  60  to  state- 
ment 100  in  PllOOlL'I.  Tor  each  level  in  the  atmosphere  concentrations  of 
the  short-lived  species  are  computed  using  the  INITAL  and  SOLVT  subroutines. 
At  a given  level,  INMAl.  sets  up  a non-linear  system  of  simultaneous 
equations  in  four  variables:  Y(l)  = M,  Y(2)  = OH,  Y(3)  = H02,  and  Y(4)  = 03. 
The  Y array  gives  the  concentration  of  these  four  species  at  a given  level. 
(Note:  0,  is  short-lived  above  30  km  and  long-lived  below  30  km.) 

Initial  concentrations  of  CO,  0^,  H^,  Ql^,  CIX,  NO^,  H.,0,  OH,  and  H02  are 
first  evaluated  from  input  profiles.  On  subsequent  iterations  the  computed 
values  are  used.  For  example,  mixing  ratio  is  converted  to  number  density 
by  multiplying  by  the  total  niunber  density.  An  iteration  counter  (J)  is 
set  to  monitor  convergence  and  subroutine  PCLOX  is  called. 

Subroutine  PCLOX  computes  the  level  concentrations  of  CL,  CLO,  and 
HCL  by  assuming  equilibrium  of  production  and  loss  mechanisms.  The  follow- 
ing ratios  are  computed: 

RRCl  = CLO/CL  I 

RRC2  = HCL/CL  11 

RRC3A  = CLNO3/CL0  111 

RRC3B  = CLN03/CL  = RRC3A  * RRCl 

the  corresponding  reaction  schemes  assuming  steady  state  at  each  level  are: 

Cl  ♦ 0^  * CIO  + 0,  k = R/vn;(2i)) 

CIO  +0  * Cl  + 0,  k = RATi;(31)  J 

CIO  ♦ NO  ► Cl  ♦NO,  k = RATi;(32) 


0 ♦ HCl 
HCl  ♦ hv 
Cl  •*■  CH, 


OH  ♦ Cl 
H + Cl 
HCl  + CH^ 
HCl  + H 
♦ HCl  + HO, 

i 

HO,  ♦ Cl  ->  HCl  ♦ 0, 


Cl  ♦ H, 


Cl  ♦ H2O2 


OH  ♦ HCl 


H^O  ♦ Cl 


k = RATE (33) 
J = JHCL 
k = RATE (30) 
k = RATE (26) 
k = RAlE(27) 
k = RATE (15) 
k = RATE (20) 


II 


CIONO^  ♦ hv 


CIO  + NO, 


CIO  ♦ NO^  ♦ M 


CIONO^  + M 


J = CJC103 
k = RATE (28) 


III 


After  PCLOX  returns  to  INITAL,  PNOX  is  called  and  an  anologous  computa- 
tion of  the  level  values  of  NO,  N02,  HN03,  N03,  N205,  and  CLN03  is  made. 
The  following  ratios  are  computed: 


RRl  = N0/N02 

RR2  = HN03/N02 

RR3  = N03/N02 

RR4  = N205/N02  * N02 

RR9  = CLN03/N02 


I 

II 

III 

IV 

V 


Reaction  schemes  determining  these  ratios  assuming  steady  state  at  each 
level  of  the  atmosphere  are: 


NO^  ♦ hv 

-*•  NO  + 0 

J 

= 

CJNO2 

NO^  ♦ 0 

- NO  + 0., 

k 

= 

RATE (42) 

CIO  ♦ NO 

->■  Cl  ♦ NO^ 

k 

= 

RATE (32) 

NO  ♦ Oj 

NO.,  + O2 

k 

= 

RATE (40) 

OH  ♦ NO2  ♦ 

M 

+ HNO3  + M 

k 

RATE(22) 

HNOj  ♦ hv 

-► 

OH  ♦ NO2 

J 

= 

JHN03 

OH  + HNOj 

-► 

H2O  . NO3 

k 

= 

RATE (23) 

NO2  ^ O3 

-► 

NO3  . O2 

k 

= 

RATE (41) 

NO3  ♦ hv  NO  + 0, 

J 

= 

JN03 

N^Og  * ♦ M 

-► 

N2O5  * 

k 

= 

RATE (38) 

^2°5  * 

¥ 

NO2  ♦ NO3 

k 

= 

RATE(37) 

^2°5  * 

-► 

NO2  ♦ NO3 

J 

= 

JN205 

N2O5  ^ M 

-► 

N^O^  + M 

k 

= 

RATE (39) 

NO2  > NO3 

^>5  * 

k 

= 

RATE (36) 

II 


III 


3() 


IV 


CIONO^  ♦ hv  CIO  ♦ NO2  J = CJCL03  ^ 

CIO  + NO^  ♦ M -►  CIONO^  + M k = RATE(28) 

In  the  course  of  its  calculation  PNOX  calls  subroutine  QUAD  which  solves 
the  quadratic  equation.  PNOX  returns  control  to  INITAL  where  a convergence 
test  is  made  based  on  comparison  of  the  old  and  new  values  of  NO,  N02,  and 
HN03.  If  convergence  occurs  (within  approximately  0.5%),  INITAL  is  exited 
and  returns  to  PHOCHM.  !; 

PHOCHM  calls  subroutine  SOLVE  which  organizes  the  solution  of  the 
chemical  system  for  the  short-lived  species  concentrations  at  a given 
level.  Basically,  the  quantities  Y (N) , N = 1,4  are  solved  for  using 
the  convergent  values  returned  from  PNOX  and  PCLOX  for  the  odd  nitrogen 
and  odd  chlorine  species,  respectively.  An  iteraction  counter  KK  is 
established  and  the  previous  values  of  H,  OH,  H02,  and  03  are  saved  for 
convergence  testing.  Subroutine  SOLVE  calls  subroutine  JACOB  which 
organizes  the  coefficients  of  the  system  of  chemical  equations  and  calcu- 
lates certain  relevant  production  and  loss  terms-  Production  and  loss 
terms  are  designated  by  double  alphabetic  variable  names  with  a single 
subscript,  while  system  coefficients  to  be  solved  by  LINEQN  are  stored 
in  the  doubly  subscripted  array,  A.  Total  production  terms  for  a given 
species  are  subscripted  variables  PP  while  loss  (sink)  terms  are  sub- 
scripted variables  SS.  Table  4.4  presents  a key  to  the  variables  defined 
in  JACOB,  identifying  each  by  the  corresponding  reactions.  Note  that 
below  30  km  0^  is  treated  as  a long-lived  species,  while  at  or  above  30  km 
Its  equilibrium  chemistry  is  treated  explicitly.  Subroutine  JACOB  returns 
to  SOLVE  where  the  net  imbalance: 

B (J,4)  = PP(J)  - SS(J) 

is  computed  for  H,  OH,  and  H02  in  addition  to  the  cumulative  error: 
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TABl.i;  4-.1 


Qir.MlCAL  ORUIIN  OF  VARIABLF.S  nF.SCRIBRD  IN  SUBROirriNF  JACOB 


Variable  Definition  Reaction 


AI.I’ 

0/0^ 

0 ♦ 0,  ♦ M 

" Oj.M 

k 

m 

RATI.  (34) 

0^  ♦ hv 

-»  0,  ♦ 0 

J 

m 

J03 

AA(n 

ProiUict  ion  of 

II 

11,  ♦ 0(*p) 

OH  ♦ H 

k 

m 

RATi;(4) 

ll,,0  ♦ hv 

> OH  ♦ H 

J 

m 

JH20 

Ay\l21 

Oil  ♦ 0 

H ♦ 0, 

k 

m 

rati;  ( 191 

AA131 

on  ♦ CO 

♦ H ♦ CO, 

k 

u 

RATI- ( 18) 

AA(41 

on  ♦ cir 

4 

* 11,0  ♦ CH^ 

k 

m 

rati;  (21) 

OH  ♦ H, 

^ H,0  ♦ H 

k 

m 

rati;  (23) 

Finn 

= AA  (1)  + AA(2)  ♦ 

AA(3^  ♦ 

AA(41  ♦ AA(5) 

BB(1) 

l.oss  of  II 

H ♦ 0^  ♦ M 

HO,  ♦ M 

k 

a 

RATI  (3) 

BB(2) 

II  ♦ 0,^  -► 

OH  ♦ 0, 

k 

m 

RATI  (0) 

BB(3) 

II  ♦ HO^  > 

"2  * ^’2 

k 

» 

RATI,  (1(0 

20H 

k 

m 

RATI,  (17) 

SSO)  = BBin 

♦ BIH^I 

♦ BBtSI 

CC(l) 

I'rodiict  ion  of 

Oil 

11,0  ♦ 0(*D) 

*,  1 

2011 

k 

m 

RATI- (2) 

CXU2) 

Cll^  ♦ 0(  DI 

* Cl^  ♦ OH 

k 

a 

rati;  (3) 

Ct;(3) 

0 ♦ 110, 

-►  011  ♦ 0, 

k 

m 

rati;  (10) 

CC(4) 

110,  ♦ 0^ 

-♦  OH  ♦ 20, 

k 

m 

rati;  (9) 

CC(S1 

NO  ♦ HO^ 

-♦  NO,  + 011 

k 

m 

rait;  (11) 

CC(0) 

H,0,  + hv 

-♦  2011 

J 

- 

JH202 

CC(71 

H + 0 > 0,  ♦ Oil 

k 

■ 

RATi;((0 

CC(81 

IINO,^  ♦ hv 

NO,  + OH 

J 

a 

JHN03 

CC(i)) 

II  ♦ HO^  -♦ 

2011 

k 

a 

rati;  (r 

CC(IO) 

- AA(1) 

rr(2i  - cc(i) 

+ c:c(2i 

+ CC(3)  ♦ CC(4I  + CC(51  ♦ CC{(0 

♦ (x;(7) 

CC(8)  ♦ CC(91 

♦ (x:(ioi 

DDcn 

1,0 ss  of  oil 

Oil  ♦ 0,^  -* 

0,  ♦ HO, 

k 

m 

RATI' (7) 

Diu:) 

11,0^  ♦ OH  -• 

11^0  ♦ 110, 

k 

a 

RAT1,(8) 

DD(3) 

HO,  ♦ OH  » 

11,0  ♦ 0, 

k 

m 

RAri;(  14) 

TAfll.l-  4-4  (Continued') 


CHKMICAL  ORIGIN  OF  VARIABLES  DESCRIBED  IN  SUBROUTINE  JACOB 


Variable 


DD(6) 

DD(7) 

DD(8) 

DD(i)) 

DD(IO) 

DD(ll) 


EE(I) 

EE  (2) 

EE  (3) 
EE(4)  = 


GG(I) 
GG(2)  = 
GC.(3)  = 
Gt:(4) 
GG(5) 
GG(6)  = 
GG(7) 
GG(8)  = 


UU(I)  = 
HH(2)  = 
IIH(3)  = 
lUi(4)  = 
nil  (5)  = 
nil(b) 
Ull(7) 
11U(8) 


Def init ion 


Reaction 


OH  ■*.  HCI  ->  H^O  Cl  k = RATE (20) 

OH  + CH^  CHj  ♦ H^O  k = RATE (2 1) 

OH  + NO^  + M -»■  HNOj  + M k = RATE (22) 

HNOj  + OH  H^O  + NOj  k = RATE  (23) 
OH  + OH  -►  H2O  + 0 k = RATE  (24) 

011  + H^  H^O  ♦ H k = RATE(2S) 

SS(2)  = DD(I)  ♦ DD(2)  ♦ DD(3)  + DD(4)  + DD(5)  + DD(6)  DD(7)  ♦ 

DD(8)  + DD(9)  + DD(IO)  + DD(II) 


Production  of  110^  11  + 0^  ♦ M -*■  HO,  + M k = RATE(S) 

OH  ♦ Oj  ■>  HO,  + 0,  k = RATE (7) 

Cl  + H2O2  CIO  ♦ H2O  k = RATE (27) 

DD(2) 

PP(3)  = EE(1)  + EE(2)  + EE(3)  + EE(4) 


Loss  of  110 
CC(3) 

CC(5) 


DD(3) 


HO2  O3  ■*  CH  + 20,  k = R/VrE(9) 


CIO  + 110, 
HO,  + HO, 


IICIO  + 0,  k = R^\TE(12) 
11,0,  +0,  k = RATE  (13) 


Cl  + HO2  ->  HCI  + O2  k = RATE  (15) 

BB(3) 

SS(3)  = GG(1)  + GG(2)  + GG(3)  + GG(4)  + GG(5)  + GG(6)  + GG(7)  ♦ 
GG(8) 

PP(4)  Production  of  0 0,  + h\>  -*■  20  J = JO- 


BB(2)  Loss  of  Odd  0 
00(1) 

CC(4) 

CC(3) 

AA(2) 


NO,  + 0 -♦  NO  + 0, 

^ 4. 

CIO  + 0 Cl  + 0, 
0 + Oj  -*■  2O2 


k = RATE (4 2) 
k = RATE(31) 
k = RATE (35) 
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TABLi;  4-4  (Continued) 


CHBHCAL  ORIGIN  OR  VARIABLES  DKSCRlBlil)  IN  SUBROUTINK  JACOB 

Variable  Definition  Reaction 

SS(4)  = HH(1)  * HH(2)  + 1111(3)  + HH(4)  + HH(5)  + HH(6)  Hll(7)  + 
1111(8) 

COIJ'FICIFNTS  OF  SYvSTFM  OF  UQUATIONS 
A(l.l)  = - SS(l)/y(l) 

A(1,2)  = (AA(2)  ♦ AA(3)  ♦ AA(4)  ♦ AA(5))/y(2) 

A(l.3)  = -BB(3)/y(3) 

A(2.1)  = (CC(7)  ♦ CC(9)/y(l) 

A(2.2)  = -(SS(2)  + l)l)(10))/y(2) 

A(2,3)  = (CC(3)  + CC(4)  + CC(5)  + CC(9)  -DD(3))/y(3) 

A(3.1)  > (EEd)  -GC,(8))/y(l) 

A(3,2)  = (RE(2)  ♦ 1;E(4)  -GG(6))/y(2) 

A(3,3)  = -(SS(3)  ♦ GG(.S))/y(3) 

At  levels  < 30  Km  y(4)  = 03(k) 

At  levels  > 30  km: 


T1 

Loss 

of 

0 

NO2  + 0 NO  ♦ O2 

k 

= 

RATE (4 2) 

T2 

on  0 -+•  O2  + H 

k 

= 

RATE (19) 

TS 

110^  0 on  ^2 

k 

= 

RATE (10) 

T4 

0 -t-  CIO  Cl  + 0^ 

k 

3 

RATE.  (31) 

TTl  = 

(T1 

♦T2  + T3  T4) 

ALP 

T5 

Loss 

of 

O3 

11  Oj  OH  O2 

k 

= 

RATE((>) 

To 

Oil  * 0^  ■*  110,  ♦ O2 

k 

= 

R/',TE.(7) 

T7 

HO2  -^03-^  on  ♦ 20^ 

k 

= 

RATE (9) 

T8 

N02.03  N03.02 

k 

3 

RATE (41) 

TT2  - T5  ♦ T6  *■  T7  + T8 
B1  - TTl  + 7T2 


■10 


1 


ERR  = X 
N=1 


PP(N)  - SS(N) 
SS(N) 


Logical  function  LINEQN  is  called  to  solve  the  system  of  equations 
B where  for  J,I  = 1,3  are  the  A(I,J)  computed  in  JACOB  using 

Caussian  elimination.  If  the  matrix  of  coefficients  is  singular,  values 
of  H,  OH,  and  HO^  are  scaled  by  a factor  of  0.9  to  remove  the  singularity 
and  the  calculation  is  repeated  from  the  call  to  subroutine  JACOB  in 
statement  1 (This  is  permitted  up  to  three  times) . If  the  parameter 
ERR  is  not  less  than  10  ^ the  concentrations  are  corrected  by  the  magni- 
tude of  the  net  imbalance  and  the  calculation  is  repeated  from  state- 
ment 1.  (A  maximimi  of  20  iterations  are  permitted.)  If  neither  of  the 
above  error  conditions  occurs,  the  equilibrium  concentrations  of 
H,  OH,  HO^  and  03  have  been  found.  The  0 concentration  is  computed 
using  the  parameter  ALP  from  JACOB  and  the  H202  concentration  follows 


^ from  the 

set  of 

reactions: 

■ HO, 

j 

* HO^ 

- I'.o.  * 0. 

k = RATE(13) 

I 011 

* H^O^ 

H,0  + 110^ 

k = RATE(18) 

11,0^ 

+ hv 

->  2011 

J = JH202 

2 2 

H202  = RATE (13)  * 1102  * 1102/ (RATE (8)  *011  ♦ JH202) 

Subroutines  PNOX  and  PCLOX  are  called  to  compute  the  apportionment  of 
nitrogen  and  chlorine  species.  Finally,  the  old  and  new  values  of  H,  OH, 
1102,  and  03  are  compared.  If  the  solutions  do  not  compare  within  1/21., 
the  calculation  is  repeated.  If  the  solution  is  found,  however,  subroutine 
JACOB  is  called  again  to  recompute  the  production  and  loss  terms  given 
by  its  coefficients  (for  printing  purposes  at  final  solution).  Subroutine 
SOLVE  then  returns  the  PHOCHM.  This  sequence  is  repeated  for  each  2 km 
level  in  the  atmosphere. 
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4.4.3  Subroutine  CFLOW;  Long-lived  Species 

At  this  stage  in  the  calculation,  concentration  profiles  have  been 


computed  for  the  short-lived  species,  that  is  the  individual  members  of 
the  HO^,  NO^  and  CIX  families,  which  are  consistent  with  calculated  J-values 
and  input  profiles  for  the  long-lived  species.  Upon  returning  to  PHOCHM, 
the  values  of  03  are  saved  for  comparison  and  subroutine  CFLOW  is  called 
to  accomplish  the  evaluation  of  profiles  for  the  long-lived  species:  N^O,  HO^, 
NO^,  CIX,  CH^,  and  0^  below  30  km.  In  these  cases  (as  discussed  in 
Section  2)  it  is  not  adequate  to  equate  production  and  loss  processes 
at  each  level.  These  species,  on  the  contrary,  have  longer  chemical 
lifetimes  and  their  profiles  must  be  consistent  both  with  chemical  sources 
and  sinks  at  each  level  and  the  gradient  of  vertical  flux  parameterized  in 
terms  of  the  eddy  diffusion  coefficient  profile.  The  resultant  equation 
which  must  be  solved  for  the  mixing  ratio  f^^  as  a function  of  z is  of  second 
order  with  coefficients  given  by  the  vertical  profiles  of  both  production 
and  loss  and  the  eddy  coefficients.  Therefore,  boundary  conditions  at 
the  top  (designated  U)  and  at  the  bottom  (designated  L)  of  the  atmosphere 
must  be  specified.  Certain  basic  coefficients  are  evaluated  in  entry  SETUP  2 
of  subroutine  SETUP  (Section  4.3.2)  which  is  called  at  the  beginning  of 
PHOCHM.  These  arrays  are  essentially  the  product  NK  which  appears  in  the 
definition  of  vertical  flux  (equation2.2)or  in  coding:  CEK(I)  * CnM(I). 

Also,  at  the  beginning  of  PHOCHM  are  definitions  for  the  factors  PPL,  PPU, 
and  QQU  which  are  used  to  specify  lower  and  upper  boundary  conditions. 

The  program  offers  the  versatility  of  specifying  either  flux  (proportional 
to  df^  or  mixing  ratio  (i.e.  f^  boundary  conditions,  the  basic  relation- 

HF" 

ship  being  in  the  form: 


^ Q 


L,U 


f. 

] 


dz 
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where  is  the  mixing  ratio  of  the  ith  species  at  the  lower  (L)  or  upper  (IJ) 
boundary.  For  example,  if  a fixed  mixing  ratio  is  to  be  specified  at  both 
boundaries,  then  U " U " ^ ~ U U mixing 

ratio  of  the  ith  species  at  the  lower  and  upper  boundaries,  respectively. 

All  of  the  cases  in  the  program  (subroutine  CFLOW)  use:  = 1 , Q^j  = QQU  * XL(N) , 

= 0.  where  QQU  = 6.0E  + 05/CEK(N)  * CDM(N) , XL(N)  is  the  loss  frequency  of 
level  N,  and  N » 81  is  the  uppermost  level  or: 

“'i  = 

for  the  upper  boundary  condition.  The  corresponding  lower  boundary  condition 
is  given  by  specifying  R as  either  mixing  ratio  or  flux: 

Li 

(a)  Rj^(flux):  Q^  = 0.,  P^  = PPL  = -CEK(l)  * CDM(l)  : 

IT 

(b)  Rj^  (mixing  ratio):  Qj^  = 1,  Pj^  = 0: 


After  CFLOW  is  called  by  PHOCHM,  a series  of  layer  interpolations  is 
accomplished  using  subroutine  RINTER  for  the  species:  DID,  OH,  H02,  N02, 

NO,  03,  CLO,  CL,  H,  and  H20  and  photodissociation  rates:  CJN20,  CJCF3, 

CJCF2,  CJCH3C,  CJ02,  CJ03,  and  CJCCL4.  RINTER  increases  the  vertical  reso- 
lution from  2 km  to  1 km  using  square  root  interpolation.  The  next  sequence 
in  CFLOW  is  a series  of  subroutine  calls  to  CSPEC,  each  of  which  provides 
the  calculation  of  the  flow  dependent  (but  time  independent)  vertical  profile 
of  a particular  species.  A test  on  the  magnitude  of  the  specified  lower 
boundary  condition  (given  in  BLOCK  DATA  or  namelist;  see  Section  4.2,  TABLE  4.2 
LABELLED  COMMON:  RLOW)  determines  whether  flux  or  mixing  ratio  has  been 
specified  (i.e.  a value  greater  than  1.0  is  a flux  while  one  less  than  1.0 
is  a mixing  ratio.)  The  appropriate  boundary  condition  parameter  is  then 
set  (Q  = 0.  for  flux;  Q = 1.  for  raixine  ratio)  for  the  CSPEC  calculation 

( 

I 
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The  order  in  which  the  individual  long-lived  species  are  handled  is  as  follows: 


N^O,  NO^,  CH^,  Fll,  F12,  CH^Cl,  CCl^,  ClX,  and  H2.  The  arguments  of  subroutine 
CSPEC  (see  program  listing.  Appendix  A)  relate  to  the  previous  boundary  con- 
ditions discussion  and  are  in  order:  (P^,  R^,  P^^,  RLOW,  DFP,  XL,  CXL) . 

As  noted  above,  the  upper  boundary  conditions  require  P^j  = 1 . and  R^  = 0. 

As  can  be  seen  from  the  listing,  the  first  two  arguments  are  1.  and  0., 
respectively.  The  quantity  P is  set  equal  to  PPL  (defined  in  (a)  above) 

Li 

and  CSPEC  changes  this  to  zero  if  is  equal  to  one  (for  fixed  lower 
boundary  mixing  ratio).  The  next  argument  is  the  lower  boundary  condition 
value  (either  flux  or  mixing  ratio  as  given  by  Q . The  term  DFP  is  the 

Li 

time  dependent  term  which  is  set  equal  to  zero  for  the  steady  state  case 
(in  each  CXL  subroutine).  XL  is  the  loss  frequency  returned  and  CXL  is 
a family  of  subroutines  (CXLl,  CXL2,  etc.)  which  computes  the  level-by-level 
production  PR  and  loss  frequency  and  returns  these  values  to  CSPEC.  As  a 
reference.  Table  4.5  identifies  the  particular  species  dependent  reaction 
schemes  relevant  to  each  CXL  subroutine.  Next,  CSPEC  calls  subroutine 
COEF  which  utilizes  the  level  production  and  loss  frequency  data  and  the 
particular  type  of  boundary  conditions  specified  to  compute  the  necessary 
coefficients  to  solve  the  system  of  equations  resulting  for  a given  species. 

The  arrays  AA(I)  and  T(I)  used  here  can  be  found  in  SETUP2.  Once,  the 
relevant  coefficients  are  evaluated,  the  system  is  solved  by  subroutine 
TRIDIA  which  computes  the  mixing  ratio  (X^)  profile  for  each  species  i. 

Finally,  CSPEC  calculates  the  net  production  and  loss  and  returns  this 
value  (XL)  to  CFLOW: 

XL  = PR  - XL  ♦X 

This  procedure  is  carried  out  for  each  long-lived  species  with  two 
exceptions.  There  is  a convergence  test  for  the  solution  of  the  NO^  profile 
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TABLE  4-5 


SUBROUTINE  FAMILY  CXL 


Subrout ine 


Species 


Production 


CXLIl 


CF2CI2 


CH3CI 


From  Surface 


N^O  0(^D)  -*■  2NO 


From  Surface 


From  Surface 


From  Surface 


From  Surface 


CFCI3  + hv  -V  CFCI2  + Cl 
CF2CI2  hv  -*•  CF2CI  + Cl 
CU3CI  + hv  -V  CH3  + Cl 
CCl^  + hv  CCI3  + Cl 


O2  + hv 
HO2  + NO 


OH  + NO, 


From  Surface 


H2O  *0(^0)  -*■  20H 

H ♦ HO2  M2  O2 


N2O  + 0(  D)  - N2  + O2 
-*■  2N0 

N^O  + hv  -*■  N2  + 0 
NO  + hv  -*■  N + 0 
N + NO  N2  + 0 

CH^  + 0(^D)  CH3  + OH 
CH^  + OH  CH3  ♦ CH3  + H2O 

CH^  + Cl  CH3  + HCl 

CFCI3  + hv  -*■  CFCl^  Cl 
CFCI3  + 0(^D)  -*■  PRODUCTS 

CF2CI2  +bv  ->  CF2CI  + Cl 
CF2CI2  + 0(^D)  ->■  PRODUCTS 


CH3CI  + hv  -*■  CH3  + Cl 
CH3CI  + OH  CH2CI  + H2O 


HO2  + O3  OH  + 2O2 
OH  + 0 -*■  HO  + 0 

4. 

NO2  + 0 ->■  NO  + O2 
HO2  + 0 -*■  OH  + O2 
OH  + 0 H O2 
CIO  + 0 ->•  Cl  + 0,, 

0 + O3  ->  2O2 

NO2  + 03-^  NO3  + 0, 

CCl^  + hv  CCI3  + Cl 

Cl  + H2  HCl  + H 


OH  + H, 


H2O  + H 


^2  R)  OH  ♦ H 


45 


above  level  40  (39  km)  where  the  mixing  ratio  profile  for  NO^  is  given 
by  X2.  Additionally,  the  calculations  for  03  are  limited  to  the  region 
from  the  surface  to  30  km  above  which  it  is  considered  short-lived.  There 


is  also  a convergence  test  for  03  whose  mixing  ratio  profile  is  given  by  | 

I 

X8.  If  convergence  is  reached,  subroutine  REPCN  is  called  which  repeats 
the  calculation  of  NO^  and  CIX  apportionment  using  the  new  03  values  below 
30  km  by  calling  PNOX  and  PCIOX.  The  values  of  CIO  and  N02  are  compared 
and  if  they  have  not  converged,  the  03  computations  are  repeated  using  the 
new  CIX,  NOX  values.  If  convergence  is  reached,  the  values  of  the  con- 
centration profiles  are  computed  from  the  resultant  mixing  ratios  for 
NOX,  CH4,  CLX,  H2,  and  03  (z  £ 30  km),  and  control  is  returned  to  PHOCHM. 

4.4.4  Final  Convergence  Testing 

After  return  from  CFLOW,  the  calculation  is  complete  except 
for  final  verification  of  convergence.  First,  the  previous  03  values  from 
the  short-lived  calculation  and  those  resulting  from  the  long-lived  calcula- 
tion are  averaged  for  a new  profile.  This  is  to  help  quicker  convergence. 

Second,  previous  J values  are  saved  since  new  ones  (consistent  with  the  new 
species  profiles)  will  be  computed  for  comparison.  RJITER  is  called  to 
accomplish  this. 

The  final  comparison  is  made  level  by  level  between  previous  and  new 
J03  and  OH  values.  An  accuracy  of  1/lOip  is  accepted  in  the  latter.  If  not 
achieved,  the  program  is  directed  back  to  statement  10  in  PHOCHM  which 
increments  the  iteration  index  by  one  and  restarts  the  calculation.  After 
successful  accomplishment  of  the  desired  accuracy,  the  program  computes 
the  integrated  03  density  (03INT)  and  the  integrated  odd  0 loss  from  levels 
9-36  (by  calling  03LINT) . Finally,  the  major  output  subroutine  PRINTX  is 
called  before  the  program  is  terminated. 
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4.5  Subroutine  PRINTX:  Output  Profiles 


Before  terminating  a particular  run  PHOQIM  calls  suoroutine  PRINTX. 

For  each  case  run,  thirteen  pages  of  results  are  generated.  (There  are 
also  a few  pages  of  input  parameters  to  identify  the  case  printed  out. 

See  sample  test  cases  Appendix  C.)  The  beginning  of  the  output  is  identi-  i 

fiable  by  the  keyword  RUN  printed  on  a separate  page. 

Pages  1 and  2 of  the  output  print  J-values  used  in  the  final  iteration 
of  PHOCHM.  They  are  headed  with  the  note;  "LAST  ITERATION  = I"  where  I is  the 
final  iteration  index  from  PHOCHM.  Page  1 gives  the  vertical  profiles 
of  the  J values:  CJ02,  CJ03,  CJCF2,  CJCF3,  CJ031  and  in  addition  gives 
the  Oj  number  density,  integrated  0^,  integrated  total  number  density,  and 
the  OH  number  density  for  the  previous  iteration.  Page  2 gives  the  profiles 
of  the  J values;  CJCL03,  CJN20,  CJHN03,  CJH202,  CJN205,  CHCCL4 , and  CJCM5CL. 

Pages  3-4  labelled  "LAST  ITERATION  + 1"  refer  to  results  for  the 
computation  of  J values  using  the  final  program  results.  Page  5 contains 
number  densities  of  H,0H,  H02,H202,  0,  C\  and  0(^D)  in  addition  to  the 
integrated  0^  density  (HOX  and  odd  oxygen  families).  Page  6 contains  number 
densities  of  NO,  N02,  HN03,  N03,  N205,  and  NOX  (NOX  family).  Page  7 con- 
tains number  densities  and  mixing  ratios  for  CL,  CLO,  HCL,  CLN03,  and  CLX 

(CLX  family) . 

I 

I Beginning  on  page  8 are  level  profiles  of  production  and  loss  rates 

I for  particular  reactions  defined  in  PHOCHM  and  subroutine  JACOB,  (ref. 

Table  4-4).  Page  8 in  particular  describes  processes  concerned  with 
production  and  loss  of  odd  oxygen.  At  the  bottom  of  the  page  the  Integrated 
values  of  these  rates  are  presented  (they  were  calculated  by  03LINT  in  PHOCHM) . 
j Page  9 gives  the  rates  for  reactives  producing  odd  hydrogen  in  addition  to 

I the  reaction  Cl  ♦ CH^ . Page  10  gives  the  complementary  losses  of  odd 

' hydrogen. 

I 
I 

1 
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Page  11  contains  a listing  of  mixing  ratio  profiles  for  N20,  NOX, 


CH^,  Fell,  FC12,  CH3C,  CLX  and  CCL^  and  H2.  At  the  bottom  of  this  page 
integrated  fluxes  for  these  long-lived  species  are  provided  by  integrating 
the  net  production  and  loss  terms  from  subroutines  CXL  using  by  a trapezoidal 
rule  (subroutine  TRAP).  These  should  not  differ  substantially  from  the 
initial  flux  lower  boundary  conditions.  Page  12  gives  the  mixing  ratio 
of  oxygen  and  the  number  densities  of  FCll,  FC12,  CH3CL,  CCL4,  and  CLX. 

Page  13  continues  with  N20,  NOX,  and  CH4. 

If  the  keyword  PARAMETERS  appears  next  in  the  input  stream  to  initialize 
constants  for  the  next  case  to  continue,  the  program  is  entered  and  the 
calculation  repeated  for  the  new  case.  However,  the  keyword  ENDJOB  will 
cause  the  program  to  print  "NORMAL  JOB  END"  and  it  will  then  terminate. 
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5.  Users  Guide 


5.1  Program  Initiation 

The  input  deck  required  to  initiate  a model  calculation  using  the 
CMSP  program  is  relatively  simple  due  to  its  modular,  self-contained 
nature.  As  discussed  in  Section  4.2,  the  basic  vertical  profiles,  wave- 
length dependent  spectra,  and  rate  constants  required  for  the  calculation 
are  incorporated  within  BLOCK  DATA  and,  consequently,  need  not  be  specified 
for  each  case  (unless  a change  is  desired.)  Table  5-1  illustrates  the 
configuration  of  the  input  deck  which  consists  for  the  most  part  of  key- 
words specification  and  a title  to  identify  the  output  for  the  case  run. 

For  added  versatility,  however,  the  user  can  take  advantage  of  the  NAMELIST 
provision  of  subroutine  INPARM  in  order  to  modify  any  of  the  listed 
(Table  5.2)  variables  for  a particular  case.  For  a single  model  run 
including  one  card  of  NAMELIST  changes,  a total  of  eight  input  cards  are 
necessary.  Note  that  multiple  cases  may  be  run  by  stacking  cards  3-6  for 
each  new  case  before  the  ENDJOB  card. 

5.2  Default  Parameter  Values 

In  addition  to  listing  the  parameters  which  may  be  changed  during 
input  by  the  NAMELIST  provision.  Table  5-2  provides  the  current  BLOCK 
DATA  provided  default  values  and  subroutine  location  of  primary  utiliza- 
tion for  each  variable.  Generally,  these  parameters  may  be  divided  into 
two  subgroups;  (1)  branching  parameters  which  control  the  type  of  calcu- 
lation being  made,  and  (2)  run  variables  which  are  input  data  to  the 
calculation. 

The  primary  branching  parameters  are:  INSWIT,  ISCATT,  NEDDY,  and 
ISIZE.  These  have  been  discussed  in  Section  4 under  the  headings  of 
their  respective  subroutines. 


W 


The  various  run  variables  include  rate  constants  (RA,  RB) , profile 
multiplicative  constants  (FCL,  FH20,  etc.),  boundary  condition  data 
(RN20,  RFll,  etc.),  and  multiple  scattering  factors  (=1.0,  they  are 
not  used) 

5.3  Aerosol  Model  Specification 

As  discussed  in  Section  3.1,  the  user  may  select  one  of  four  internal 
aerosol  models  by  specifying  the  pareuneter  ISIZE  which  chooses  a set  of 
optical  constants  (extinction  and  absorption  coefficients)  in  subroutine 
QSCATT  (Section  4.3.2).  An  additional  provision  allows  the  user  to  sub- 
stitute another  size  distribution  by  using  ISIZE  = 5 and  adding  the 
necessary  extinction  QE(5,J)  and  absorption  QA(5,J)  coefficients  as  a 
function  of  wavelength  ALAM(J)  within  the  subroutine.  The  height  dis- 
tribution specified  by  lAERO  (Table  3-1)  will  be  utilized  for  either 
lAERO  = 0 (23  km  visibility)  or  lAERO  = 1 (5  km  visibility).  This  para- 
meter is  set  in  subroutine  ALTGEN  (Section  4.3.1).  The  height  distribution 
may  be  changed  by  amending  the  BLOCK  DATA  array  DA23. 


TABLE  5-1 
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CMSP  INPUT  DECK  CONFIGURATION 


Card  Number 


1 

2 

3 

4 

4a 

4b 


5 

6 


Last  Card 


Description 
the  word  TITLE 
any  title  desired 
the  word  PARAMETERS 
$ INPUT 

as  many  cards  as 
necessary  to  input, 
in  NAMELIST  format 
any  constants  which 
differ  from  the  de- 
fault values  set  in 
BLOCK  DATA 

$ END 

the  work  RUN 


Columns  Used 
1-5 
1-80 
1-10 

beginning  in  column  2 


beginning  in  column  2 
1-3 


(cards  3-6  may  be  repeated  for  any  number  of 
runs  with  changed  constants) 

the  word  ENDJOB  1-6 
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TAHI.i;  S-2 


I’AI^lTliRS 

WHICH  MAY  Bi;  sPi-ciFit-n 

IN  NAMliLlST 

BLOCK  DATA  Default 

Subrout  i iie 

Name 

Value 

Used 

I'Cl, 

1.0 

INITAL 

K:LN()3 

I .0 

I’NOX 

1H20 

1.0 

INITAL 

l•NO 

1.0 

(not  used) 

FKK 

1 .0 

SF.Tlir 

n 

so 

CI'HI  1 

ni 

1 .0 

CPHl  1 

v:2 

1.0 

io-‘ 

CPHl  1 

1M03 

1.80  X 

.JACOB 

IJ 

1 .0 

CXL 

IJFC 

1.0 

io'_’ 

‘^0 

10* 

CXL 

Tl, 

UN  JO 

.3.1.S  X 
J..SO  X 

CXL 

CSPF.C 

UNOX 

J.OO  X 

CSPF.C 

UOMJ 

1 . .SO  X 

CSPF.C 

uri  1 

0.30  X 

io‘ 

CSPFC 

UI'IJ 

uoii.xi: 

1..30  X 
1 . SO  X 

*'-10 

10 

CSPFC 

CSl’FC 

U(;i,x 

UCCl.-l 

1 . 00  X 
1 . 30  X 

CSPFC 

CSPFC 

NIiDDY 

U03 

0 

3.00  X 

10-'' 

SFTHP 

CSPFC 

SCNOJ 

1.0 

PNOX 

six:i,03 

1.0 

i:OMP.) 

SCIIJOJ 

1 .0 

COMP.) 

SCNJOS 

1.0 

COMP.) 

I’UJo 

0 

.7 

CXI. 11 

UIIJ 

S.OO  X 

10 

CSPF.C 

I.  AT 

30. 

WliU.HT 

ni;l. 

0. 

> 

WF.ICHT 

.IN03 

1.3  X 

10  “■ 

PNOX 

UA 

) BLOCK 

DATA 

iu:0Nsr 

uu 

) AUUAY 

UCONST 

iswrr 

1 

u.jrrF.u 

isizr. 

4 

qSCATV 

isi;Arr 

1 

U.)1TFU 

ur.|- 

0.2 
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n 


r 


PROGRAM  NAIN( INPUT, OUTPUT, TAPE9< INPUT, TAPEfi>OUTPUTI 


C 

c. 

r. 


‘'•tUORINF  NOQFL  study  PROGRAM  • VERSION  S 

.MAIN  P'*UTIVE..REAOS  KtYMOROS,  C*US  SUBROUTINE' 


.veiSTCN  '^.1  LEVEL  7Tl(lul 

.F.R.r.,iM:.  N.n.szt,  n.tpi«>p,  r.g.  Isaacs,  h.<.''iirke 


r. 

1^ 

r 


a 


OcAL  rrTt(lJ»,TITL£(6) 

TVTE'FI  YiVidO)  , XTdT) 

CTIiON  /JPAJ/  TITLE,  ICOPE, VERS, LpVEL,OATp,IRUN,nPA':p,NLOS 
riATA  K£Y^/l♦^TTTL,JMRUNf 


ICnnF  = H7 
wER'sS.  j 
L'VtL=7^t  J3l 
SALL  DAY 

.REAO  KEYWORDS 


100  CA.L  INPUT(KEYS.10. IC.IFORH,XT.<WN>.RETURNS(9S9) 
GO  TO  (?00,?S0,70a> • KHN 


.TITLE  - TITLE  FOR  OUTPUT  - INITIALIZE  RUN 


ZOO  REAOdCil)  TITL 
“FI TE  16, 3>  TITL 
CA..  ALTGEN 
GO  TO  100 


.....steaoy-stat:  calculations 

Z50  CA.L  PHOCMM 


GO  TO  100 
700  GO  TO  100 
9^9  WRITE  ((TtkY 


STJP 

1 FORNATIIOAO>  _ _ 

3 PORMATI/ZTlOftOAS) 

4 FORHATi-^Tlll*  N0RN_AL  JOB  FNO.*J 


EVO 

SU3ROUTINE  ALTGEN 


.CHLORINE  MODEL  STUDY  PROGRAM 


.SUBROUTINE  ALTGEN  - FILLS  UP  ALT ( •)  ARRAY 


VERSION  4.0 

•••.•E.R.T. j INC. 


LEVEL  770Z14 
L.  PENNY,  N.  T RILF 


000100 

000110 

OOOIZO 

OJClJy 

0JC140 

OJOlEb 

OOllA^b 

0}I17« 

OQCIRO 

OJOlPb 

ijgC»ru 

300'’i0 

T002ZO 
ORu  c3w 
J3U40 
OOOZSo 

♦ ♦♦♦  ♦♦♦OJ  0 ?f'n 
u 0 b k 7u 
OObZRO 
OOCZnu 


00031 0 
000320 
000330 
000340 
000390 
000360 
000370 
0003SO 
000330 
000400 
000410 
000420 
000430 
000440 
000490 
000460 
000470 
00043  0 
000490 
000900 
000910 
000920 
000930 
000940 
000990 
000960 
000970 
00099  0 
000930 
000600 
000610 
000920 
.000630 
000640 
000690 
000660_ 
000670 
000600 
000630 
000700 
000710 


; * ******************  *4*******^-¥***f  **********************  f***  ♦«»♦»«*  non  7 70 


5t> 


■TTg 


Cl  i>  i> 


CO'iHON  /INfOEN/  0031  NT  1 4 1 ) ,DHINr  ( 4 1)  , OA  INT  (>»  1 1 
C0>4N0N  /MODEL/  ALT  ( 41 1 , TEMP  (41)  , 0M(41)  ,OIU(  4 1 ) , DA2](  4 II 
COMMON  /^QLCOM/  ML  ( 1 0 0)  , FL  < lOQ) , Q02~(  1 00 1 » 003  ( 100) 

COMMON  /SOLCNl/  QCFZ  ( 10  0 ) .QCE  3 (1  00)_fQCCL4(iaO)  »QCM3C(100)  t 
X Q'CLNOSdOO)  tONZOdYO)  •QHNO3(i60j  , QM202(10dl  f QN205(100)t 
V QMCL<100)t3H3CL (100) ,QM02(100),QH20(100) 

UAL  OA05(3) 

DAr A OAOS/1. 3/8E04, l*a4<U03,2.453E02/ 

; 4»444  4444»»«»»444»4»»««-4»44444»4  00  0)  1 0 

000)20 

ALT  (1):=0.0 

_ 30  ID  1*2.41 

10  ALT (II*ALT(I>1) 42.0E9 


000731) 
000740 
0007S0 
000740 
000770 
0007) 0 
000790 
000)00 


FL( 29) 
PL( 30) 
FL( 31) 
FL( 32) 


= 1.09E412 
» 2.40F412 
= 3.75E4i2 
* S.70E412 


FL( 33) 
■L<  34) 
35) 
■L( 3ft) 


1.47E413 
2.09E413 
2.59£»13 
3.20E41 3 


AEROSOL  HEISHr  MODEL  IAERO«0(23KM) » sKSKM) 
COMPUTF  INTPC^ATFO  AFdtOSOL  nFNStrv 
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000) 30 
000)40 
000)50 

ooo)&n 

000)70 

ooo))n 

000)90 

000900 

000910 

000920 

000930 

000940 

000950 


DC. N03(33) 

X 

:.40E-10 

000960 

DC. N03(34) 

= 

3.75E-ie 

000970 

DC. N03(35) 

X 

3. 76E-10 

0009) 0 

1C.N03(36) 

r 

3.07E-16 

000990 

3C.N03(37) 

s 

2.31E-16 

ooiono 

DC. NO  3 (30) 

= 

1.60E-ie 

001010 

DC. N03(39) 

X 

i.ioE-ie 

001020 

3C.N03(40) 

= 

).54E-19 

001030 

DC.N03(41) 

X 

6.57E-19 

001040 

DC.N03(42I 

= 

5.09E-19 

001050 

DC. N03(43) 

= 

5.09E-19 

001060 

DC. N03(44) 

= 

4.07E-19 

001070 

DC. N03(45) 

= 

3.20E-19 

0010)0 

DCLN03(46) 

= 

2.61E-19 

001090 

DC.N03(47) 

2 

2,02E-19 

001100 

DC. N03( 40) 

= 

1.45E-19 

001110 

DC. N03(49) 

= 

1.05E-19 

001120 

DC'.N03(50) 

= 

7.34E-20 

001130 

DC. N03(51) 

s 

5.10E-20 

001140 

DC. N03(52) 

= 

3.90E-20 

001150 

)C.N03(53) 

X 

2.S9E-20 

001160 

DC. N03(54) 

= 

2.02E- 20 

001170 

DC. N03(55) 

X 

1.49E-20 

0011)0 

DC. N03(56) 

X 

1.07E-20 

001190 

DC.N03(57) 

X 

5.00E-21 

001200 

DC.N03(50) 

X 

4.10E-21 

001210 

DC. N03(59) 

X 

4.00E*21 

001220 

0CwN03(60) 

= 

3.00E-21 

001230 

DC. N03(61 ) 

X 

3.20E-21 

001240 

DCL  N03(62) 

= 

2.90E-21 

001250 

DC. N03(63) 

X 

2.60E-21 

001260 

DC.N03(64) 

= 

2.10E-21 

001270 

aC.N03(65) 

S 

?. lOE-21 

0012)0 

DCLN03(66) 

s 

1.90E-21 

001290 

aC.N03(67) 

X 

1.70E-21 

00130  0 

DC. N03(66) 

= 

1.50E-21 

OOlSLO 

DC.N03(69) 

X 

1.30E-21 

001320 

DCLN03(70) 

X 

l.lOE-21 

001330 

DC.N03(71) 

X 

9.7E-22 

001340 

DC.N03(72) 

3 

4.  0E-2i 

001350 

001360 
001370 
001  3A  n 


LlJl.I.lilMIJilJ! 


lAiROsO 

IF(  IAERO.F3.0K;a  T3  16  

00  IS  J«l,3 
0A>3( J)sO«0S( J) 

MT  * 6t 

OAlNf  (NT>«OAZ3(Nn»3.78EOS 
NTHl  a NT  - 1 
OE.T  a 7.0E0S 

ONlNT  'lNt)  a ONCNTJ  • S.  OEOfS 

00  20  J ■ I.NJHI 

1 * NT  - J 
IPt  a I ♦ I 


OAINT (I ) aOAINT (IP1)« (OA23(IP1I»OA23(I» I *OELZ*.S 
20  ONlNTd)  a ONINTCIPtl  ♦ (OH(IPl)  * ONCII)  » OELZ».S 


CA.L  PAGE 


NKITE  (6.601) 


NRITE  16.602)  (J.ML( Jl ,PL(J)»Q02(JI»Q03(J),)CF2(J),3:F3(J). 

1 QCCL6(J),QC^H3C(J)j  Jal,  99) 

CA.u  PACE 

NMTF  C6t603)  _ 

NRITE  I6.60I.)  ( J,HL(  J)  .FL(  J)  tQCLN03(  J)  t QN20(  J ) . QHNO 3 ( J ) . QH2a2  ( J)  . 

I 

601  FO9MATaM0,12i(,*Ml.*tllX,*Fl,*,l0<,»(l02»j  10X.*303*,1IK,*QCF2»,  9X, 

1 •3CF3*,  bX,*QCCL4*»  oX,*QCM3C*/) 

602  FORMAT  ( IH  . I S . 1 P8E1 3 .6) 

603  FORMAT  ( IHO , I 2X, • NL» , IIX , ’FL* , 9X,*QCLM03*,  ex,*QN83*,  8X.*QM202* 

1 »X.»aN20S»/) 

604  FORMAT  (IH  . I S. lP7Et 3. 4) 

RETURN 

ENO  

SUBROUTINE  IN^ARM 


m 


.CMS  04  CrtLORlME.  MODEL  STUDY  PROGRAM 

.SUSROUTI.)^  '.JtJ^OS _AND  WRITES  RUN  VARIABLES 

.VERSION  4.0  LEVEL  770214 


■••E.R.T ..I NC • 


N. TRIPP 


COMMON  /EOOY/  FKK.Il.Pll ,P22,NE30V 


:OMNON  /MO.iYO/  XH(01),XH2O(61),PH2O.RH2.X11(81) 

COMMON  7PARM7  I SMIT. T STE P (TSTOP, TL OQP , I TPRNT t ISI ZEt I SC Al T 
REAL  JN03 

COMMON  7RATES7  R ATE  ( 65i 8 1)^RA  ( 6>  ) , R8 ( 6S  ) , JN03  . P JO 3 
COMMON  /SFACt/  FCL . FH 20 , FCLN03, ? N 0 
. common  /RLON/  RN20.RN0X.RCM4.KFtl.RFl2.RCH3C.RCLX.RCCL4.RQ3 
COMMON  /SPECON/  FJ.FJFC.TL 

HEAL  LAjr. __  _ 

COMMON  /MT/  A (6) .OL .LAT.OEL 

COMMON  /PARA/  U0,N,N1,N2.NN.NNP1,REF  

NAMELIST  /INPUT/  FCL .FCL N03 .FH23 . FNO. FKK .1 1. P11.P22. PJ03. ISWIT . _ 

1 FJ.FJFC.T. .RN20,RN0X.RCH4.RF11,RF12.RCH3C.  RCLX.RCCL4. 

2 NED0Y,RO3,SCNO2.SCCLO3.SCH2O2,SCN208tPM?O.RH2.LATt3EL.JN03.RA.RB 

3 ,ISl2E.ISCTrf,REF 

READ  CSjIN^jd)  _ 

CALL  PAGE 


001390 
001400 
001410 
001420 
001430 
001440 
0014S0 
001460 
001470 
001490 
001490 
OOlSOO 
OOISIO 
001520 
001530 
001540 
001550 
001560 
001570 
001590 
001590 
00160  0 
001610 
001620 
001630 
001640 
0 016  5 0 
001660 
,001670 
001690 
001690 
00170  0 
001710 
001720 
001730 
.001740 
001750 
001760 
001770 
001790 
001790 
001900 
001910 
001920 
. 0019  30 
001940 
00195  0 
001960 
0019  70 
00199  0 
001990 
001900 
001910 
00  1920 
001930 
001940 
001950 
001960 
001970 
00199  0 
001990 
002000 
00201  0 
002020 
002030 
002040 
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IF  ( ISNIT.Cd. Q)  MRirE(6,S10)  ISHII 

510  C0RH*T  (1H0,3)(,  •FIXFL  SUN  ANGLi  MOOEu 
IF  (ISNIT.Ea.l)  MRIIE“(6,5ri)  ISi<ir 

511  FORMAT  (IHO,  3jCj*?»*_rtOUR  AVfRAGEJ  NMEL 


- ISRirCN  x»,l2) 

- ISRITCH 


CALL  WEIGHT 

MRITE  <6,51i.>  LAT»OEL,A,OL 

514  FORMAT  ( tHO/4<,*COMTAU  FACTORS  FOR  THIS  RUNI V/4X, 'FIR  LATITUDE 
1,F5.1,*  i SOLAR  OECLINATION  »*, F6 . 1, 3X ,• A** S *• , 6< FS. 4, • ,») / 

2 53X,*0L  =»,F9.1,*  SECS.*)_ 

IFCISCATT.Ea.niGO  ta  10 

HRIIE  (G.5?01  ISCATT 

'o'  ':ORMAT(1HO/,4X, •multiple  SCATTERING  CALCULAIION,  IS:AfT»*tI2) 
CA.l  page  _ 

CALL  OSCATT 

I CONTINUE  _ _ _ . 

NRITE  (5,504) 

504  50RN4T  I 1H0/4X, •FLUXES  AMO  MIXING  RATIOS  FOR  THis”  RJIl"*!'  — 

NRIIE  (6,505)  RN?0,  RNOX,  RCH4,RF1  1,RF1?,  RCHTS  , RCLX , RS SL 4t R03 . R H2 

505  FORMAT  ( IHO , 3X  , •RN26  = • , 1PE:9.  ?,  ? X , •RNOX  ”=•  ,E9,  ?,  2X  , *RCMV*^,E9 

1 2X,*RF11  =!jE9.2,_2Xi*Ry2  = •,  E 9.  2, 2X,  • RC  H3C  **tE9 

2 2X,^RClX  ^•,E9.2/  4X,^RCCL4  =• , E9.2 ,2< , • RO 3*  • , E9 

_ J 2X,*RH2  ^•.E9.2) _ _ _ 

NRITE  (6,505)  JN03,PJ03,PH20 

505  -ORMAT  ( IM0//4X, •JN03  =• , 1PE9. 2, 4X , •? JO 3 =•, E 9. 2 , 4X , • PH20  =*,E9 
NRITE  (6,500) 

500  "ORMAT  ( 1H024<,^S-FACTORS  FOR  TNIS  RUNl^) 

NRITE  (6,501)  F;l.FCLN03.FH2O,FN0  

5'01  FORMAT(1MO,TX,^FCL  «•  , F5 . 2 , 2X  , •- CL  N03  » • , F5.  2 , 2X  , •F  920  «*,-5.2, 

1 ?<,*FN0  =*,F5.?)  _ 

NRITE  (6,512) 

51?  FORMAT  ( IHO/ ,4X, •multiple  SCATTERING  "ACTORS  FOR  TNI5  RJNI*) 
•RITE  (6,513)  5CN02.SCCL03,SCH232.SCN205  _ _ 

513  FORMAT  ( IHO, 3<,»SCN02  =•  , F5. 2 , 2X , • SCC . 0 3 **, F 5. 2, 2X , » S CM 202  =•, 
1 F5. 2,2X  ,*S:m?05  =*,F5.2L  _ 

call  CPHIl  (P11,P22,I1) 

CALL  SETUP  (SIEP.ai) 

CALL  RCONSI 
RETURN 

ENO  

SUJROUTINE  SETUP  (SIEP,N) 


:mS03  - CHLORINE  MODEL  STUDY  PROGRAM 


C SUBROUTINE  SETUP  TO  TRANSFER  R_AH  DATA  NITM  41  LEVELS  TO  A SE’'  OF 
: NEM  JATA  MlfH  81  LEVELS 

: ENTRY  SErUP2  TO  COMPUTE  CERTAIN  BASIC  COEFFICIENTS 


C VERSION  3.2 

^ • ....F.R.T*,! NC • 


LEVEL  761222 
N.D.SZE,  N.TR1*P 


CUMMON  /COEi^l/AA  (81)  ,BB(dl)  iCCd  1)  ,OL  (8  1)  ,UU(8  l)~,U(3i)  ~ 
COMMON  /EDDY/  F I ^P1 1 tP22, NE3 OY 

COMMO  N 2MOOF  L/  ALT ( 4 11 , T FHP (41)  , ON( 4 1 1 , OIO(  4 1) , D A2 1 ( 4 1) 
COMMON  /NDAIA/  CEX(dl) ,CDM(81),CrEMP(ai),COA(81) 

COMMON  /TFCIR?  FT,FA,FB,FM 
REAL  EK(41).F(81) 


002050 
002060 
002070 
002080 
002090 
002100 
00211 0 
••002120 
002130 
002140 
0021S0 
002160 
00217  0 
002130 
002190 
002200 
00221 0 
_ 002220 
002230 
002240 
2,002250 
.2.002260 
,2,002270 
00225  0 
002290 
.2)002300 
002310 
002320 
002330 
002340 
002350 
002350 
002370 
00233  0 
002390 
002400 
002410 
002420 
002430 
002440 
002450 
002460 
002470 
002430 
002490 
002500 
002510 
...002520 
002530 
002540 
002550 
002560 
002570 
002580 
002590 
002600 
002610 
002620 
...002630 
002640 
002550 
002560 
002670 
00253  0 
002690 
007700 


: HUNIE't'S  EOOV  3IEEJS1QN  COEFFICIENTS  (NOOIFIEOt  - UP  TO  50  KHS.  002710 

DATA  EK/  10.  00, 10.00,10.00,10.00,  10,00,3.  00,3.  00.  3. 00»  0 .26 ,0 . 33,  002720 

lO.i,  2,  0.  S3,  0.66,0.03  • 1.01, 1.  30,1.6  0,2.  05,2.55,  3.20,  00,5.  00, 6.  HO,  00  27  30 

25.00,10. 00,12.50,16. 00,20.00,25. 00,31.00,35.00,50.00,62. 00,75.00,  002740 
^ 396.  00,120.00,  150.00,190.  0 C, 240. 00,300. 00, 350. 00/  002750 

IF  (NEDDY. E3.1)  CALL  EDCl  (EK> 002760 

IF  CNEDOV.E3.2)  CAL.  EOC2  (EK)  002770 

00  10  I=li41_ 00275  0 

J=2*i-1  002790 

CE<(J)aEK(I)  »1.0E  4»FKK _ _ 00250  0 

CO>1(J)aON(II  002510 

COA(J)«DA23(l) 002520 

10  CT£HP(J)xTE<1P(I)  002530 

00  15  1=1,40 _ 002540 

J=2*r  002550 

1 PI  = Ml  _ , 00  25  60 

CEK( J)=SQRr (EK<I)*EK(IPl))*1.0i4*FKK  002570 

CDi  (J)=SQRr(D1(I)»DM(lPl  ) ) _0  025_5  0 

C0A(J)xSQRT(0A23(I)>0A23(IPl))  002590 

15  CTEHP  ( J)  «S3RT(TEMP(  I)  »TE MP(  IPl ) ) 00290  0 

CALL  PAGE  002910 

IF_(«DO_YtEl*J>  NRITE  (6,60)  FK<  _ 002920 

IF  (t(EODV.E3. 1)  WRITE  (6,61)  FK<  002930 

IF  (NEDDY. E3. 2)  WRITE  (6.62)  F« 002940 

WRITE  (6,65)  002950 

WRITE  (6,65)  (I, ALT(l) ,SEK(2»I-1) ,C3H (2*1-1) , CTEMPC 2> I -1) , 002960 

1 COA( 2*1-1) ,1=1,41)  002970 

60  '■ORMAT  ( 1H0,J9X,*FKK  ;*,F5.2,*,  FACTOR  MULTIPLYING  WJYTEN'S  EDDY  0100295  0 

IFFJSION  COEFFICIENTS*)  002990 

61  FORMAT  (1H0.9<.*FKK  =*.F5.2.*.  ‘ACTOR  MULTIPLYING  ASA.YTIC  EDbY  01003000 

IFFJSION  COEFFICIENTS*)  003010 

62  "ORMAT  (lH0,9Xj_*FJC<  =*,F5_,2,*,  JACTOR  MULTIPLYING  S9A'(G  'S  EDDY  01003020 

IFFJSION  COEFFICIENTS*)  003030 

format  ( 1H0710X,*ALT* ,10X,*E<*,13X,»0M» illXf  * TE MP* , 1 3X , * 0 A» / ) 0 0 3040 

66  FORMAT  (2X,I2, OPFll. 0,lP2E15.4,0PFLi.2, 1PE15.4)  003050 

. RETURN __  003060 

C 003070 

ENTRY  SETUP2 _ 00305  0 

NM1=M-1  003090 

NM2  = N-2  ^ _ 003100 

JT=3. 155  76E7*VtEP  ' ' ''  0 0 3110 

00  32  1=1, N _ _ 00  3120 

E (I) =CEK(I)*C0M(I)  ' 003130 

32  J<I)=0.5E-^0*OT/COM(I)  003140 

00  33  1 = 2 , Nil'  " 003150 

3 3 CC(I)=SQRT(i([»l)*E(I)) 0 0 316  0 

DO  34  1=2, Ni2  003170 

34  8B(1»1)«CC(I) _ 0 0 313  0 

BB(2)=SQRT(E(2)*E(1))  003190 

00  35  M_2,Nil  _ _ 003200 

35  AA( I) =CC(I)»B3(I)  ~ - 003210 

00  40  1=2, Nil _ _ 00  3220 

0L( I) =U( I)*9B( I)*FA  003230 

40  DU(I)  =U(I)*CC(I)*FA _ 003240 

RETURN  003250 

• _ EN3  003’60 

SUBROUTINE  WEIGHT  003270 

C ' 00325  0 

C - . 003290 

: CM503  - chlorine  HODEL  study  program 00  3300 

C 003310 

: VERSION  3.3_  LEYEL  770201  _ _ _ 003320 

C E.R.T.,INC.  N.O.SZE,  N.TRI>P  003330 

C 003  34  0 

C.  . ....V.  ' 00  3350 

Z 003360 


60 


O ! If  > t5 


I 

1 


<EAL  LAT 

COHHON  /MT/  »(y  .OL.LAT.OEL 
aiMENSlON  r(6V 

0 A r A t»TOR,HrOO/.  0 17»5329»57.Z9Sy9/ 


LAI  • LAT  • OrOR 

DEL  : DEL  * DIOR 

XI  « COS  (LAD  • COS(OEL) 

X2  = sInTlaTI”*  TTnIoelj 

OOw  ■ ACOS(>TAN(LAn»TAN(OEL)) 

OOl  : 240.  * OOL  * RtOO 

OT  s OOL/6. 

DO  10  I s 1,6 

Id)  * OT/2.  ♦ (I-U  *01 

T(I)  = IT(I)/240.)  » DTOR 

COSANG  : X1»CDS<T(I)I  » X2 

10 

A(I)  = l.O/COSANC 

OL  * 2. ’OOL 

LAI  = LAT  • RIOO 
del  = DEL  • RTOO 

RETURN 

END  i 

subroutine  CPHIl  (P11,P22,I1) 

COMMON  /PHIS7  PHII(IOO) 

- 

DO  10  J > 1,11 

w 

10 

PHI H J»  = Pll 

111  = 11  ♦ 1 

DO  20  J * 111,72 

?0‘  PHI  IIJ)  = P2  2 


<Etji?N 

END  _ _ 

SU3ROUTINE  EOSl  <EK) 

niN A'.'vriC  EDDY  OIPFUSION  COEFFICIENTS  r»~irE^^ 

OI1ENSION  £<(41)  __ 

DO  10  i=l,5 

10  EK(I)=10.  

EK(6)=3. 

___  EK(7>  »3. 

£K(  81  =3. 

DO  70  I=_9i41  _ _ 

20  EK(I»  =.35*E)<P((2*(r-l)-Hi)/9.55» 

RiTl^N 

end' 

SUBROUTINE  ;D;2  (EK> 


CHANG' S EDDY  DIFFUSION  COEFFICIENTS  - JP  TO  SO  KHS.I*  l.E-4) 

OliENSION  E<(41),CK(41) 

OAI A CK/6»30.  , ■ 

1 l«dfl»2t>97t«74fG0i«90t«42t»39t«37t«37»»39t»42t>SBt»6Li»S0§ 

2 l.l>1.5,2.2,3.3,S.4,9.2tl7.,29.»49.|90.»199.»9*2St.7' 

00  10  I » 1,41  ~ “ 

10  EK(I»  s CKIT) 

ilETJPN 

END 

SUBROUTINE  ^CONST 


CHS  04  - CHLORINE  HOPEI  STUDY  PR36RAN 

SUBROUTINE  RCONST  • CALCULATES  TEACTION  RATiS  FOR  PRJCRAN 


003J70 

003350 

00333  0 

003400 

003410 

003420 

003430 

003440 

003490 

003460 

003470 

00348  0 

003490 

003SOO 

003910 

003920 

003930 

003940. 

003990 

003960 

003970 

003980 

003930 

003600 

003610 

003920 

003930 

003940 

003690 

003960 

003670 

0 0 368  0 

003630 

003700 

00371 0 

003720 

003730 

003740 

00379  0 

003760 

003770 

003780 

003730 

003500 

003510 

003520 

003530 

003540 

003590 

003560 

00357  0 

00358  0 
003530 
003300 
00331 0 
003320 
003330 
003340 
003390 
U03360 
003370 
00398  0 
003330 
004000 
004010 
•04070 


61 


c 


level  /70gl» 

N.0.S2E,  N.TRIPP 


•yE<SION 

NC« 


O c. 


CONNON  /HOAfk/  CEK ( 61 ) , COM ( «1 ) . CTENP( dl I t COA ( 61) 

REAL  JN03  _ 

COMMON  / RATES/  RATE  ( 66, 8 1)  . RA  (6;  ) »~RB(  6S)  , JNOS  .PJ03  " 
OlMEt^ION  R;A:Tl<y,9> .REACT? (7,9) .REACT  3(7,9 ) 1 _ 

I REA^A(7,9)  ,RE  ACTS  (7,9)  .REACT6  (7,9)  .REACTS (7, 

EQJIVALENCE  (REACTSd.  1 ) .REACTl  ( 1 ,1)  ) , 


63) 


(RE ACTS (1,10) .REACT? (1,1) 
‘ REACTSd, 19)  ,REACT3  ( 1,1) 


(REACTSd, ?8)  ,REACT6 
* C TS  (1 , 3 7 ) .REACT? 


(REACTSd, 46)  .REACTS 


OAT  A 

REACT1/4HOH  »,4H  CH3,4HCL 

.4H 

= ,AH 

:h2.ahc,. 

♦,4H  H20t 

? 

4HH70  ,4H«  0(,4H*0) 

.4H 

< ,4H 

?0H,4H 

,4H 

$ 

3 

4MCH4  ,4H4  3(,4H*0) 

=J-AH 

:h3.ah  ♦ 

3.4HH 

f 

4 

4MH?  »,4H  0 ( *,4H0) 

.4H 

K.4H 

)H  .4H^ 

1 .4H 

f 

5 

4MM  ♦ ,4H0?  ♦.AH  M 

_l4H 

s,4H 

■07.4H  ♦ 

1,  AH 

$ 

6 

4MH  ♦ ,4H03  ,4H 

f 

* . 4H 

9H  .AH^ 

32.  AH 

f 

7 

4H0H  ♦.AH  03  ,4H 

i4H 

« .4H 

102. AM  ♦ 

3.  AH2 

g 

8 

4H0H  ♦.AH  H70,4H7 

.AH 

= ,4M 

H?0y4H  ♦ 

1.4H32 

$ 

9 

IfHHO?  x4H^  03  .4H 

*i4M  )H  .4H^ 

23.4.H2 

/ 

DATA 

REACT2/4HH02  ,4M^  0 ,4H 

,4H 

*,4H 

)H  ,AH^ 

32.  AH 

• 

7 

4HH02  ,4H^  M0,4H 

= ,AH 

)H  tkrt* 

13,4H2 

f 

3 

4HH0?  ,4H^  CL.AHO 

.4H 

r.AH 

ICL.AHO 

♦ .4H02 

f 

4 

4HM0?  .4H^  H0.4H? 

.4H 

* .4H 

EFFfdll 

♦ .4H02 

« 

5 

AMHO?  ,4H^  OH,4H 

.4H 

*,4H 

H20,AH  ♦ 

3.  A12 

f 

6 

4HH02  CL, AM 

^AH 

HCLfAH  ♦ 

3, AH? 

f 

7 

4HH  ♦ ,4HN0?  ,4H 

.AH 

= ,4H 

12  rUH* 

32,  AH 

9 

8 

4MH  ♦ ,4HH02  .4H 

xAH 

= ,4H 

20H.4H 

.AH 

1 

9 

4H0H  ♦,4H  CO  ,4H 

.4H 

= ,AH 

1 ♦.AH  C92.4H 

/ 

9AT  A 

REACT3/4H0H  ♦.AH  0 .4H 

.AH 

« .4H 

1 tjAHJ 

7 .4H 

9 

7 

4H0M  ♦.AH  MCL,4M 

.AH 

= ,4H 

120, 4H  ♦ 

C,  AHL 

9 

3 

4H0H  ♦.AH  CH4,4H 

|AH 

=jAH 

120, 4H  ♦ 

C, 4HH3 

9 

4 

4H0H  ♦,4H  N0?,4H  ♦ 

1.  AH 

*,4H 

1N0,4H3 

♦ . 4HH 

• 

5 

4H0H  ♦tAH  HN0,4H3 

|AH 

= |AH 

120.AH  ♦ 

1,  4H03 

9 

6 

4H0H  ♦.AH  OH  ,4H 

.AH 

= ,4H 

120, 4H  ♦ 

3.  4H 

9 

7 

4H0H  ♦.AH  H?  ,4H 

, AH 

= ,4M 

120. AH  ♦ 

If  AH.  . 

9 

8 

4HCL  ♦.AH  H?  ,4H 

.ah 

< ,4H 

1CL.4H  ♦ 

1,  4H 

9 

9 

4HCL  ♦.AH  H20,4H2 

-jAH 

=j4H 

HCL.4H  ♦ 

1, 4H02 

/ 

DATA 

REACT4/4HCL0  ,4H^  N0,4H?  ♦ 

. AHM 

= ,4H 

CLN.4H03 

♦ . 4H  H 

9 

7 

4HCI  ♦.AH  03  ,4H 

,4H 

= ,4H 

CLO.AH  ♦ 

3,4H2 

9 

3 

4HCL  ♦.4H  CH4.4H 

, AH 

« .4H 

1CL.4H  ♦ 

C.4HH3 

9 

4 

4HCLO  .AH^  0 .4H 

.AH 

= .4H 

CL  .4H^ 

32. AH  _ 

1 

5 

4HCL0  ,AH^  N0.4H 

.AH 

«.4H 

CL  .4H^ 

13,  4H2 

9 

6 

4H0  ♦ lAHHCL  .4H 

_.f  AH 

= i,4H 

)H  ,AH^ 

CL, AH 

7 

4H0  ♦ .4H0?  ♦,4H  M 

.AH 

« .4H 

)3  .4H^ 

1 . 4H 

9 

8 

4H0  ♦_x?*M03  i4H 

jAH 

*l^M 

202, 4H 

i ah 

9 

9 

4HN0?  .4H^  N0.4H3 

.AH 

S.4H 

120, 4H5* 

.AM 

/ 

DATA 

REACT5/4HN205.4H*  .AM 

.4H 

» .AH 

102. AH  ♦ 

1. AH03 

7 

4-«M?05.4H*  ♦ ,4HH 

.AH 

>.AH 

120. 4H5 

♦ .4HH 

9 

3 

4HN?05,4H  ♦ N,4H 

_l4M 

«,AH 

120,4H5» 

♦ ,4H  H 

f 

4 

4HN0  ♦.AH  03  .AH 

. 4H 

>.AH 

102, AH  ♦ 

3. AH? 

• 

5 

4HN02  ,4H^  03, 4M 

|4H 

«,4H 

103, 4H  ♦ 

3,4H2 

f 

6 

4HN0?  .4H^  0 ,4H 

V 4H 

s ,AH 

10  .4H^ 

32. 4H 

9 

7 

4HN70  .4H^  0 ( .4H*0) 

.4H 

■.AM 

12  .AH4 

32. AH 

8 

4HN70  .4H^  0(,4H'0) 

.AH 

■ .AH 

2N0.AH 

, AH 

9 

9 

4HN  ♦ jAHNO  ,4H 

jAH 

* .AH 

1?  ,AM4 

3 »AH 

/ 

DATA 

REACT6/4HM  ♦ ,4H0?  ,AH 

.ah 

= ,4H 

10  .AH4 

3 ,4H 

9 

7 

4H0(*D,4H)  ♦ ,4HCEC 

. .4H3 

«.  AH 

■RO.AHOtf 

CT.4HS 

f 

3 

4H0(*0.4H)  ♦ ,4HCF? 

:.4HL3 

«.AH 

RRO.AHOU 

CT.AHS 

9 

4 

4M0(*0.4H)  ♦ .4NCH3 

C.4HL 

■ •AH 

)H  .AH^ 

Cl.  4H?C- 

0 

1,1) 

t,l» 


• • 
li 
) • 

ij , 


004030 
004040 
004050 
004060 
,004070 
0040  SO 
004090 
004100 
004110 
0041?0 
004130 
004140 
004150 
004160 
004170 
004190 
004190 
004?00 
004?i0 
004??0 
004?30 
004?40 
004250 
.104?b0 
004770 
00479  0 
004790 
00490' 
004 
004 
004330 
004340 
004350 
004360 
004370 
0043S  0 
004390 
004400 
004410 
0 0 4',  7 0 
004430 
004440 
004450 
004460 
004470 
0044SO 
004490 
004500 
004510 
004570 
004530 
004540 
004550 
004560_ 
004570 
004590 
004590 
004600 
004510 
004670 
004630 
004640 
004650 
004660 
004670 
004690 


/>0  I or  II 


* ,4HCCLI»t<>H 
4‘<0(*0«4rt>  » t4HW  »4H 


2l*lH  ! 


>t4H  >R0,4H0li:rt4rtS 
»>4rt  ) ♦,4H  (l_,4rt 


SfT  U>  RATES  ARRAY  FOR  65  REACTIONS 

30  10  I « 1,65 

00  10  J « 1|S1 

10  RATE  (1,J»  « RA(I>  > EXP(RB(I>/:TEHP(  Jl  > 

RE-CALCJLATE  RATE  CONSTANTS  THAT  DO  NOT  FIT  ABDYE  F0RNJLA_ 

00  30  J s 1,01 

RAf£<22.J>  I a.3E-13»EXP(660./CrEMP(JI)/(2.6E16»CON(J)) 

RArE(37,J>  « 1.0E»0S»CON(J)/(2.6E19»CDN(J))  ♦ l.OEF 
?0  CONTINUE 

PRINT _0JT  ALL  REACTIONS  AND  RATE  CONSTANTS  ALB  

ca.l  page 

_ WRITE  (6,600) 

600  FORHAT  ( IHO , 3< , 'REACT  ION  RATE  (IS  A FUNCTION  OF  ALTI TUOE , Zl  = A • 
Itl-I  »,  » EXP(3/rENP(Z)  > »//4X.'N0.*,  15<,'REACTI0N'tl7Kt»A'.  1 IK  ,*BV> 

□ 0 30  I = 1,Z1 

30  WRITE  (6y601)  I » ( RE  A CTS ( N , I ) » N= 1 , 7) , RA ( I ) , R) ( I ) 

601  FQRNAT  (IH  , 1 5 ,4X  , 7 A 4 . IPE 1 3.Z  . 0»  F 1 1,  0 I 

00  40  I = ?3,35 

40  WRITE  (6,601)  I , ( RE  ACT S (N , I ) , N= 1 , 7) , R A ( I) . k3 ( I ) 

00  50  I = '39,51 

SO  WRITE  (6,601)  I , ( RE  ACTS  ( N . I ) , N = 1 , 7)  , R A ( I ) ,H  ( I ) 

PRINT  EXCEPTIONAL  CASES 

WRITE  (6,603)  (REACrS(N,2Z),N-l,7) 

1,  _ (REACTSIN, 37)  ,N«1, 7)  _ _ 

603  FORMAT  ( IHO, 3X, 'REACT  IONS  WHOSE  RATES  ARE  CALCULATEl  BY  DIFFERENT 

l^^ORNUL^E  AR'^I'^//  _ _ 

Z 4r,'22',4X,7A4,5X,'R  = 2.  3E-13' , IH' , 

_ 3 'EXP(a80./rENP(Z)/(2.6El8  » M(Z))»/ 

4 4K,'37',4X,7A4,5X,'R  = 1.0£'8',1H', 

5 '1  (Z)/(2.6E19'M(Z))  ♦ 1.0EJ')_  _ 

RETURN 

EN3 

SU3  ROUTINE  PH3CHM 


chlorine  model  study  PR3GRAN 


VERSION  4 


-sya.fwunNE  phocmh 
.VERSION  4.0 L 


•••  cEvR,!  •,!  NC  • 


LEVEL  770214 

N.  D.  SZE,  N. TRIPP 


DIMENSION  YdO) 

COMMON  /INrDEN/D03lNT(41) ,0M1NT ( 41 ). PAINT  141  > 

COMMON  /JVA./  CJ02(50),CJ03(50),CUCF2(50),CJCF3(50),CJCCL4(50), 

1 CJCH3C(50).CJCL03(50),CJN?0(5»)  .CJNN03(5  0) 

2,  CJH202(50) ,CJ031(50),CJN265(51I 
COMMON  /MODEL /alt (41 ) ,TEMP(41 ) tON (41)  ,010(41)  ,DA23(41) 

COMMON  /NDATA/  CEK  ( 8 1)  , C DM  ( 811  ,CTEliP  ( SI  > , CDA  ( S 1) 

COMMON  /NETPRO/  PP(4),SS(4) 

COMMON  /OLO/  0J02(41) , 0 JO 3( 41 ) , 3 JCF2 ( 41 ) ,0 JC F3 (41 ) , 0JCCL4 (41) , 

1 0 J CH3C(41)  ,OJCl 03(41) ,0JN20( 41)  , 0JMN03 (41) , 0JH202<41)  ,0 J 03 1 ( 4 1 ) , 

2 0JN205(41) ,6. 00H(41) ,003INT(41)  ,003(41) 

COMMON  /PARAl/  STEP, QQU, PPL ,PPU,  N, M 

COM  MON  /PARM/  IS NI T , T St E P ,TSTOP, T LOOP, ITPRNT , ISIZE , I SC  AT f 
REAL  J02.  J33.  JH70.  JN02,  JN20,  JN205.  JHN33.  JCH4.  JCF2. 


004690 
004700 
004710 
004720 
004730 
004740 
004750 
004760 
004770 
004780 
004790 
004800 
004910 
004920 
004930 
004940 
004950 
^04960 
0 0 4970 
004980 
004990 
004900 
004910 
004920 
004930 
004940 
004950 
004960 
004970 
00499  0 
004990 
005000 
005010 
005020 
005030 
005340 
005050 
005060 
005070 
005080 
005090 
.005100 
005110 
005120 
005130 
005140 
0051.50 
005160 
005170 
005190 
.005190 
005200 
005210 
005220 
005230 
005*40 
005250 
005260 
005270 
00529J 
005290 
005300 
005310 
005320 
005330 
005340 


X JCF3,  J)4CL|  JH2)2»Ji40:l 

COHWON  /PHRtTF/  JO?  ( M) . J03  (41>  i JM29(«>1 ) , JN32  (M)  ti^23(4t)t 

X JM  205(41)  »JHN03(  411  (41)  t J^  F?  (41)  » JCF3( 4 1)  » JHCL ( <»  1)  t JH202(41 

» iJ'<lCti41» 

CO)1liON  /PRO^ArE/  AA(10)»BB(ia)tCC(10)  ,00(111  , EE  ( 1 0)  , &G  (1  •)  . riH  ( 10  I 
REAL  JM03 

COiiON  /RATES/  RATE (65, 0 1) , RA (6i ) , RB( 65 ) , JN03, P J03 
COHHOM  /S0LC0</WL (10  0) .EL  (100) .10? (100) ,Q03(  10  0) 
real  NO,N02,NOX,N03.  N?05 

_ COWHON  /SPECIE/  H(41).OH(41).H0?(41).H?O2(41).O3(41).0(4t).NO(41) 
1 N0?(41)  ,Hlii33  (41)  ,N0X(41)  ,C0(41I  ,02(41)  ,CH4(41)  , H?a(  41 ) , 4 ?(  41 ) , 


3 ClN03(41) 

_ -CQjjHOH  /PROPS/ P0D0H(7.41).S0O0H<9.411.03INT(4t)  .( 

1 YV  (9),HHHO,41) 

OIKENSIOW  0303(41) 

CORHOW  /TFCTR/  FT.FA.FB.EW 

S.S.  CT*0,  FA=?,  FB»0,  FH=0;  T.O.  FT*1,  FA»1,  F8al,  FH*1 

LO;iCAir“NEXr 

DATA  NEXT/. FALSE./ - 

FT  « 0. 

FA  a 2, 

FB  * 0. 

=_  0 , 

Ml  * 31 

LL.  I 

LLJ  « 41 

N a 81 

STEP  * 1. 

H =_1 

rtX  * 6.0E»5 

.001 

EP51  a .01 

CAlL  SETUP?  (5TEP.M) 

OQJ  aHX/ (CE<(M)*CON(N)) 

PPL  a -CEK(1)»CDH(1) 

PPJ  a -CEKCI)  *CO»((M) 

CA.L  RJITER  (ISHIT,  ISCATT) 

I a 0 

10  I a I , 1 

IF  (I.y;jijLO»  _50_J^  501^ 

IF  (i.EQ.l)  GO  TO  30“ 

0^  12  J a LLL.LLU 

OLOOH(J)  a 3H(J) 

__  003(J)  a 03(J) 

1?  CONTINUE 

30  00  40  J a LLL,LLU 

L a ?*J  - 1 

J02(J)_^  CJ^LAl 

J05(j)  a CJ03(a) 

__  JM'(03(J)  a :J4M33(J) 

JH20?(J)  a 3J-|202(J) 

JN?05(J)  a :ji?05(j) 

bl3(j)  a CJ33l(J)«03(J)/(RATE(5l,L)»ON(J)) 

_40  COHTIWUE 

60  do  100  K a LLL,LLU 

I ■ - I 

CALL  INITAL(K,r,I,NEXr) 

CALL  SOL»E  (R.ALP.r.Ml) 

Ob  300  J a 

30  0 RMH(J.K)  a HH(J) 

NH»4(9tK)  a PP(4) 

P030H(1.K)  a AA(1)»?. 


-(4LI_i£LiIH4(41), 


005350 
005360 
)005370 
00533  0 
005390 
_005400, 
00541 b* 
005420 
005430 
,005440 
005450 
. 005460 
005470 
00548  0 
005490 
005500 
005510 
005520_ 
005530 
005540 
005550 
005560 
005570 
005550 
005590 
005600 
00561  0 
005620 
005630 
005640 
005650 
005660 
005670 
005630 
005690 
005700 
005710 
005^20- 
005730 
005740 
005750 
005760 
005770 
0 0573  0 
005790 
005300 
005310 
005320 
005330 
005340 
005350 
005360 
005370 
00533 0 
005390 
005900 
005910 
• 05920 
005930 

005950 

_005960 

005970 

005930 

005990 

006000 


"•ODDMCZ.K) 
P030n(3, K) 
P03aiH<l.,K) 
POD  OH  <St<> 
POD  OH ( 6,  K) 
P03DH(7.K) 


CC(l) 
CCJ  2 ) 
CCfft) 
AA<3) 
CC(S) 
CC(6) 


30601 0 
0060?0 
006030 
OObOiiO 
006090 
006060 


CLDM6(IO  = 

RArE(30,L)  • CL()0  * 

CH4(K) 

006020 

) 

SODON<1,K) 

s 00(2)  * 2. 

006080 

S0D0H(2,K) 

= 00(3)*2. 

006090 

00  309  J » 

006100 

309  SODOH(J,K) 

= 00(J^3) 

00611 0 

SOOOH (8,K) 

* 2.0  • RATE(16.L)  • 

H(X)  * H02(l) 

006120 

- - ( 

SODOH(9tK)  = 

10  0 COHTIWE 

DO  108  K sLULtLUU 
108  ODD  3(k:I  = 03(0 


006130 

ooomo 

006190 

006160 

006170 


00  110  K = LLL, LLU 
no  33(K>  * (03«X)  ♦ 0003(K))/2. 

006190 

006200 

00  20  J » LlL,LlO 

006210 

006220 

3jD2(J)  = CJ02(J) 

3JD3(J)  s CJ03(J) 

006230 

006260 

ojcp?(j)  = cjDFetj) 

DJDF3(J>  * CJCF3( J)  

ojzziwijt  = cjccl4{J) 

DJCH3C(J)  s CJCH3CUJ 

0JDL03(J)  = CJCLOSIJJ 

JJ'IZDIJ)  g :J»130(J) 

0JHN03(J)  = CJHN03<J) 

0JH202(J)  * C JHg02( J» 

0jD31 ( j»  = jj03i( j) 
3J'<205(J)  * CJN?09(JI 
003II4TCJ)  = 0a3INTCJl 

CONTINUE 

call  RJITER  (ISMITflSCATT) 
IF  (I.EQ.l)  63  TO  10 


30  90  J = _LLljLLU  _ 

E = ABS((CJ33(J)  - 0 J03( Jl) /CJOS ( JH 
IF  (E.GE.EPS)  60  TO  H 


El  = ABS((3H(J>  - OLOOH(J))/OH(J) ) 

IF  (E1.GE.E»S1>_60  TO  IJ^  

90  CONTINUE 

902  CONTINUE  _ _ _ 

CALL*03"LINT  (HHH,  YT,9,36) 

03INT(LLU)  = D3(LLU)»9.0E5 

LLUHL  = LLJ  - LLL 

00_310  1, LLUHL 

J s LLU  - K 

JPl  = J_»  I _ _ 

310  03INr'(J)  * D3IMT(JP1)  ♦ ( 03  ( JP1»  ♦ 3 3 ( J ) ) *1.  E 9 

call  PRINTX  (l,LLLtLLU) 

NEXT:. TRUE. 

RETURN  

901  I • I - 1 

NRITE  (6,601)  I 

601  FORMAT  ( IHO/ 1 OX, • 01 D NOT  CONVERSE  ITERATIONS*) 


60  TO  902 


SUBROUTINE  RJITER  ( ISMIT , ISCATT) 


006290 
006760 
006220 
00628  0 
006290 
006300 
006310 
006320 
006330 
006360 
006390 
006360 
006320 
006330 
006390 
006600 
006610 
006620 


006630 
006660 
006690 
006660 
006620 
0 06680 
006690 
006900 
00691 0 
006520 
006930 
006960 
006590 
006960 
006920 
006980 
006990 
006600 


006610 

006920 

006630 

006960 

.006690 

006960 


65 


ty  o 


:mS0S  - CHLORINE  MODEL  STUDY  PROGRAM  00bf>r0 

_ _ _ OObjSI 

Z YEiSION  3.3  level  TTOZ'ot  OObbOO 

z E.R.r.flNC.  N.Oj^SZE^  M.TRIPP  OOb^OO 

O  c oobno 

• z 0Qby?O 

COMMON  /RATrS/RATEIbSiai) •RA(65> ,RB(6S) •JN03|PJ03  OObroo 

z oob^bn 

NT  » bl  OOb^SO 

MAV  « S.OEOS  OOb^bO 

IL  » 1 ' ^ OObrzo 

_ lU  ■ T2 OOb/80 

IF(ISCATT.EQ.1IIU«99  " OObTOO 

lF(ISCATT.El.l)PJO3a0.0  OObKO 

'TO-  * 1.0  OObStO 

IF  (ISMIT.EO.O)  ROF  c 0.9  OOblZO 

GMJ  « .707  00b)3n 

CALL  COLOFM  (9T.MAV) OOblbO 

CALL  COMPJ  (IL,1U,GMU,R0F,NT,IS4II .TSCATT) ' OOblSO 

4ETJ4N,  OOblbO 

ENO  00bl70 

SUBROUTINE  ;p.OFN<NTiMAV)  O0bS8O 

z OObSVO 

-2 THIS  ROUTINE  COMPUTES  COLLMN  PE9SITIES  OF  U70ME 006300 

C OQbjin 

: MT  1$  THE  IMOEX  NUNB£R  Of  THE  TUP  LATER  00b970 

: HAV  IS  THE  AVERAGE  SCALE  HEIGHf  OF  TOP  LAYER  00b93n 

3 _ OObObO 

REAL  NO,NO?,NOXf N03tN709  008390 

COMMON  /SPE;IE7  .OH<M).HO!(bl).M202IAl).03(bM.3(bl).NO(bl).OOb3bn 

1 N07<bl>  »HM03(bn  tMOX  (bl)  ,CO(bll  i02(bl)  ,CHb(b  1)  « H Z3(  b 1 ) . H2(  bl ) , 008370 

2 Cl  lbl),CLO(bll,HCL  (bl)  t CLX  (bl  li  OCEX  ( 41)  iN03  I bl)  fNZOKbll  , 0 0 839  0 

3 CLNOKbll  00833  0 

COMMON  /NOD'^L/ALT(bll|rENP(bt)iONlbl)jDlD<blUOA23(bU  007000 

COMMON  /INTOEM/OOSINTIbl) ,DMINT(bl),OAINT<bl)  007010 

007120 

MTMl’  = NT  - 1 007030 

0E.2  3 2.0E09  007040 

U03INT(NT)  * 03(NI)  • HAV  007090 

30  to  J ■ ItNIMl  „ 007080 

I « MT  - J 007070 

__  IPl  « I » 1 _ _ 0 0709  0 

10  OOSIMTII)  = OOTINTdPlI  * ( 03((P1)  ♦ 03(111  • 0EL7».  9 00703  0 

RETURN  007100 

END  007110 

SuaRpUTIMF  COMPJ  (U*lU»6«U,R0F|NTtlSMITiIS;ATT)  0071  70 

Z 007130 

-5  0071.40 

C CM503  - CHLORINE  MODEL  STUDY  PROGRAM  007190 

C 007180 

C VERSION  3.3  LEVEL  770201  0071  70 

C E.R.r.iINC.  N.O.SZE,  N«TRI*P  0071*0 

C 007130 

.««t. 007700 

Z 007210 

C THIS  ROUTINE  COMPUTES  J-VALUES|  IL  ■ lOHER  .INir«  (J  ■ UPPER  LIMIT007270 

C GMJ  ■ SOLAR  ZENITH  ANGLE  007730 

C ROF  > FLUX  REDUCTION  FACTOR  007740 

C MT  X INDEX  MUMBER  OF  TOP  LAYER  007790 

_ ISMIT  ■ SWITCH  USED  IN  CONPUTIN?  TRAN  FROM  TAU 0:07780 

C ISCATT  ■ SNITCH  FOR  ABSORBING  OR  SCATTERING  MODEL  007770 

COMMON  /NOD- L /ALT  <bl>  tTENPIbl) ,3M (41 > t DIO (41) iOA23<bl>  0077*0 

COMMON  /iNfCfEM/  0031  NT  ( b 1 ) tONlNT  ( 4 1)  t OA INT  (4 1)  007790 

COMMON  /JVAl/  CJO2(S0)|CJO3(S0)|CJCF2(SB) ,CJ CF 3 (SOI , C JCCLb( 90 ) , 007300 

1 CJCH3C<90) »CJCLO3(S0l,CJN26(Sli ,CJHN3)(9I>  007310 

2.  CJM202  (SO)  .CJD31(S0) .CJN209(S1)  007370 


8(> 


O'  O' 
\j\  O' 


1 


aOiHON  /NSCAr/  SCN02,SCCL03»SCH2Q2,SCM20S 

COXMON  /PHIS/  PXUdOQI 

DEAL  J02«J05»JH20|JN02,JN20,JN23S» JHNDSyJCH^t JCF2V 

X J3F3,JHCL|  JH202t  JXOCL 

' CONNON  /PHRATE/  J02  ( HI)  » JOS «ii>,  J H20 ( 411  , JN32  C%  1)  t J'tZD  Ut  ir 
X JM20St41),JHH03(41),JCH»(»l)tj:F2<»l>.JCF3(»H.JM3l(M)  . _ 
y JH2Q2Ul>t  JH3CL(l>t> 

COHMON  /SOLSOS/  WL  ( 100)  » FL  ( lOOt . QO2U00)  . QOS  ( lOOt 

COI^HON  /S0L:MIF  QCFZdOOl  fQCF3(100l,qCCL«(10  0i  «aCH3:(100l  , 

X QCLNOSdOO)  ,qW20  (10  01,  QHN03(  101)  ,Q^^02(10  0>  iQN20SC130>i 
Y Q-ICL  (10  0)y3HaCL(lQ0)  ,QN02(iaO),  qHZOdOO) 

<3EAL  LAT 


COHMON  /NT/  A(6),0L,LAT,0EL 

COHHQN/SCA/rAUINT  (100)  ,F((>1,100I  , FAV(  i»l  , 1001  .FLUX  (All 
OTMENSION  FHK  100) 

0 0 HPUtr  COLJHH  of NSTfTTsT  stored  I¥ Ws m,3HINT, 
COMPUTED  IN  SUBROUTINE  CXOEN 


IF  ISMITCH  THEN  FIX  GHU  FOR  INTEGRAL  ELSE  CALL  COHPTAU 

IF  ISCATT  00  MULTIPLE  SCATTERING  CALCULATION  AND  

HEIGHT  FLUX  FACTORS  IF  ISMIT 

P02  » 0.21 

IFdSCATT.Ea.OIGO  10  50 

IFdSWIT.EQ.QIGO  TO  bO 

00  65  1=1, NT 

OQ.  J*IL.IU  

FAY  H,J)=0.0 

F(l£j)=0.0  

CONTINUE 

CONTINUE 

00  70  KK  = 1,6 

SNU  = 1./A  (XX>_  

CALL  ONEGA(Nt,IL,IU,GMU) 

00  80  1=1, NT  _ 

00  90  J=iL,IU 

_ FA/  (I.J)=FA/(r.J)  »F(I.J> 

CONTINUE 

CONTINUE  

CONTINUE 

DO  75  1 = 1, Nr_  _ 

00  76  J*IL,IU 

F(I,J)=FAV(I, J)»PL»2./I0  36d00. 

CONTINUE 

CONTINUE 

GO  TO  50“ 

CALL  OMEGA('lT,IL,  IJ,GMOI  

CONTINUE 

00  10  1 = 1. NT 

TE’1P2  « 0.0 

TEMPS  _=_OjO 

TENPA  « 0.0 

TEMP5  *J).0  _ _ 

tE1P6  « 0.0 

TEMPT  = 0.0 

TEMPO  » 0. 

TEMPO  = J.  

TEMPI  0 » 0.  '■ 

TEMPll  = 0.  _ 

TEMPI  2 = 0. 

TEMPI  3=0. 

TEMPI A«0. 

TEMP15=q.  

fEMPl€i»0. 

00  20  J = I.  ,(U 
I F ( I S C ATT. Ea .1 ) GO  TO  7' 

TAJ  = a03(J)*003INrd)  ♦ Q02(J)*0NINT(I)»P0? 


00733(1 
007360 
007350 
007360 
007370 
0073S  0 
007330 
007600 
007610 
007620 
007630 
007660 


007650 
007660 
007670 
0076SQ 
007630 
0 


007510 
007520 
007530 
007560 
007550 
. 90  ?i6LO 
007570 
007580 
007530 
007600 
007610 
007620 
0(17630 
007660 
007650 
007660 
007670 
0 076^0 
007690 
007700 
007710 
007720 
007730 
007760 
007750 
007760 
007770 
007780 
007790 

oo_7iqo 

007810 

007820 

007330 

007860 

007850 

007860 

007870 

007880 

007890 

007300 

007310 

007320 

007330 

007360 

007350 

007360 

007370 

007980 


67 


IF  (ISNIT.Cr.O)  GO  TO  too 
TAJ  > -TAU/:t1J 
IF  (fAU.GE.-lSO.)  GO  TO  5 
TRAN  « 0. 

SO  fO  6 

S TRAN  » EXP(TAU> 

GO  TO  6 

100  CALL  CONTAU  TTAUtTRAN) 

TRAN  s TRAN*  rOL/1036SaO.  ) 

J.0  TO  B_ 

T TRAN«F(I,J) 

6 TEiP?  . TENPZ  * FLU)*qQ2(J)*TRAN 

TF1P3  » TENP3  ♦ FL ( Jl *00 S( J) *TRAN 

TEi P%  » TENPA  ♦_ FLLii »QCF2(J)  ^ TRAN 

TEiPS  » TENP5  ♦ FL(J)*QCF3(J)  • TRAN 
TENP6  = TENP6  ♦ FL(J> *QCCLA(J>»  TRAN 
TENPr  * TENP7  ♦ FL ( J) •QCH3C<J»*  TRAN 

TENPB  » TENP8  » FL(J> »QCLW03(J)»TRAN»PNI1(JI 

TENP9  » TENP9  ♦ FL( Jl VONZOC J) •TRAN 

TENP10»TEMP10  ♦ FL<J>*QHN03(J)»TRAN  

TEiPll  » TEiPll  ♦ Fk ( J)*QH202(J)*TRAN 

_ TEiPli,  » TENP12  ♦ FL(  J)  *QN20S(J)  »TRAN 

TEHPt3»TEHP13  ♦ FL ( J ) •QHCL ( J) »TA A N 

TEMPlMTEHPt^  ♦ FL(J)»QH0CL(J)*TRAW 

TENP15«TENP15  ♦ FL  ( Jl  •QNO?!  Jl  •TI A Hi 

TEN  PI 6»TENP1B  » FLIJ»»aN20(J) *T<AW 

?o  continue 

CJ02(  It  « TiN=*2*RDF  

CJ03(I)  « IiNPS*ROF 

CJCFg(I)  = TENP>»*RDF 

CJCF3(I»  » TEMP5*R0F 

CJCCLB(I)  = TEHP6*R0F  

CJCH3C(I)  * TENPT*ROF 

_ CJCL03a>  « TEMPa*R0F*SCCL03 

CJNz'Odt  ■ TEiP9*R0F 

CJHN03<r)  = TENPin*RDF 

CJH?Q2(I)  * TENP11*RDF*SCH202 

CJNZOSTI)  = TEMP1?*RDF»SCN20S  

JMCLII) *TENP13*ROF 

JH3CL  <II«TENPli»*ROF  

JN32<I»»TENPi5*ROF 

JHZOmaTENPl  f*ROF 

10  CONTINUE 

PHI  (5  3)  jl_.7 

PHI (59)  « .05 

_00  30  I » 1,NT  _ 

TEHP31  » 0. 

00  40  J « IL.59 

IF  (ISCATT.EQ.l)  GO  TO  110 

TAJ  » Q03<J)  •003INTJ1)  ♦ 902(  J)  • ONINT  ( I ) 'POZ 
IF  (IStilf  .GT.  0)  GO  TO  25 

_ TAU«-TAU/GMJ  

IF  (TAU  .GE.  -150.)  GO  TO  24 

_ TRAN»0. 

GO  TO  27 

24  TRAN=EKP(TAJ1 

GO  TO  27 

25  CALL  COHTAU  (TAUiTRAN)  

TRAN  > TRAN*(OL71036SOO. ) 

GO  TO  27 

110  TRAN>F(I(J) 

27  IF  (J.CT.52)  GO  TO  40  

PHKJ)  « l.'O 

40  TE1P31  « TE5P31  ♦ FL ( J) *PH1 < J)»103 U) *TRAN 
30  CJOSKI)  « TENPSIVROF 
LLL«1 


007)90 
OOSSOO 
OOSOlO 
000020 
000030 
008040 
000050 

ooeobo 

000070 
008000 
000090 

ooaioo 
00811 0 
000120 
000130 
006140 
000150 

..  1 M 

006170  ] 

0081S0  ■ 

006190  j 

008200  j 

008210  j 

__i)!)8  7?0  ...  ..  ^ 

000230  ; 

000240  ' 

000250 

000200 

000270 

__  008250  _ 

008290  , 

000300  I 

000310 

000320 

006330 

000340  j 

008350  < 

000360  ' i 

000370 

008350 

008390 

008400 

008410 

000420 

006430 

008440 

000450 

008460 

008470 

00045  0 

008490 

006500 

00851 0 

008520 

006530 

008540 

008550 

008560 

008570 

0.0^0  0 

008590 

008500 

000510 

008620 

008530 

088640 


08 


4 > V> 


LLJ=NT 

WRITE  _ _ _ _ 

HRI  rr  <6,60?)  (ALTi  J)  •CJ0?<J)',CJ03<J)  (CJCF?!  J)  ,CJCrj(Jt,CJ33l  (J>  f 
1 _ JHCLtJI . JHOCL(J),JN02(J), JH?0< J) . J«LLL,LLU) 

WRITE  <6,1603) 

W RITE  (6,606)  ( ALT ( J) , C JCL03< J) . C JH20 ( J ) ♦ C J< N 0 3 < J).CJH?0? ( J ) , 

1 CJN?0S(J),CJ:CL4(J)  ,CJCH3C(J),J>UL,LLU) 

1601  FORMAT  (lH0i5Kj*L«l  ITERATION  ♦__!?_  //  » X , • ALT*,  5X  ,*C  JO?*  , 7X 

1 *:J03*,  6X,*CJCF?*,  6X,*CJCF3*,6X,*CJb31*,3X,*  JW;l*,5)C, 

? * JH0CL*,5X,*  JM0?*,6Xx^  JH?0»//> 

60?  FORMAT  (IH  ,0i»F9.0,  1P09E11.3) 

1603  F09NAT  ( 1H6 , 5X , »L AS!  ITERATION  ♦ 1*// 

A 6X,*ALT*,SX,*CJCL03»,5X,*iCJN?0*, 

1 6X,*CJHN03*  ,5^,  * C JJ  ?0?*  , SX,*C  JW205*,  5X,*CJ:CL  *»*,4X,*CJCH3:l*//) 
604  FORMAT  ( IH  ,0PF9.O,  IP0/E11,3) 

RETURN  

END 

SUBROUTINE  ^OWTAU  (TAU.TRAN) 


.CMS03  - CHLORINE  HOOEL  STUDY  PROGRAM 


.VERSION  3.3 
. E • R ♦ T . 1 1 NC  . 


LEVEL  T70?01 
N.O.SZE.  N. TRIPP 


REAL  LAT  

COMMON  /WTZ  A(6) ,DL,LAT,OEL 
IF  (TAU.GT.l.E-3)  SO  TO  10 
TRAN  = OL/3600. 

RETURN 


10  TRAN  = 0.0  

IF  (TAU.GT.SO.O)  RETURN 

T = -TAU  * Ad) 

TEST  FOR  UN3ERFLOM 

IF  (T.LT, -100.0)  RETURN  _ 

TRAN  = EXP(r)  * ?.0 
T = -TAU  • A<?) 

IF  (T.LT. -100.0)  RETURN 

TRAN  = TRAN  ♦ ?.0  » EXP(T) 

t = -TAU  • A(3) 

IF  (T.LT. -100.)  REIJRN  

TRAN  = TRAM  ♦ ?.0  * EXP(f) 

T = -TAl^*  A (4) 

IF  (T.LT. -100.)  RETURN 

TRAN  = TRAN  ♦ ?.0  * EXP(T> 

T * -TAU  * A(5» 

IF  (T.LT. -100.)  RETURN  _ 

TRAN  * TRAM  ♦ 2.0  • EXP(t) 

T = -TAU  * A(6) 

IF  (T.LT. -100.)  RETURN 

TRAN  = TRAN  » 2.0  * EXP(T) 

RETURN 

END  _ 

SUBROUTINE  INITAL  (X, V,lI,NEXt) 

DIMENSION  V(iO),RR<3)  " 

BEAL  NO,N02,N0X,NO3,N20B 

COM  HON  /SPECIE/  M(41)  , OH  ( 41)  , HOM  4 1)  , H202  (41)  •03(  41 ) , 0 (41 ) , NO  (41 ) 
1 ND2(41)  ,HND3(411jM0X(<^JjCO(41)jO2(41)  tCH4( 41)  ,H20( 41 ) , H?(4  1 ) , 

? CL(41), CL0<41) •HCL(4i) ,CLX(41), 0CLX(4i) ,N0S(41),N?3$(41I • 

3 C-N03(41)  

COMMON  /HOOEL  /ALT  (41)  ,TEMP(4'l)',DM(41)  ,0I0~(41  )VdA23(  41 ) 

COMMON  /SFACT/  FCI.FH20. FCI NOl.^MO 


006660 

008660 

0086/0 

006680 

006690 

006/00 

008/1(1 

,006/?n 

006/30 
006/40 
008/60 
006/60 
008//Q 
008/S  n 
006/90 
006S01) 
008S10 

_0083?n 
.006330 
008S40 
006)60 
008S60 
0083/0 
_006SS  n 
0 0639  0 
90 
00691  0 
006920 
006930 
006940 
006960 
006960 
0089/0 
006960 
006990 
009000 
009010 
009020 
009030 
009040 
009060 
009060 
0090/0 
009030 
009090 
009100 
00911 0 
009120 
009130 
009140 
009160 
009160 
0091/0 
009130 
009190 
009*00 
009210 
009*20 
009230 
009240 
,009260 
009260 
009*/0 
009230 
009790 
nnqinn 


'f  > 


LOGICAL  NEXT 

IF(NEXT)  GO  T3  10  “ 

IF  (II.GT.l)  SO  TO  10 
FCl  >1.0 

CO(K>  > CO<K>  • OHIKI 


FCO 


02(K)  « 0.2  • DN(K) 

M21KI  = 0.5S-3  • OHIO 
CHI»(X»  = CM4<kr  • 6H(K> 
OCLXJW  = CLXtlO  » FCL 
CLXCK)  > CLX(<>  «OH(K)  » 
H2Q<K)  = H20tlO  * OHIK) 


NOX(K)  « M3X(K>  • 0H(K) 
0H(K)  = OH(KL_^  1.  1 
HO?(X)  = MD2(K»  • 1.1 
10  T<1»  = H(K)  _ _ 

H2)  > OH(K) 
y<3)  = H02(<) 


FCL 

» FH20 


?0 


X(4»  > 03«X) 
J = 0 _ 

J=J»1 

IF(J.GT.IQ): 

rNo>Nd<i<> 

TN02=N02(K) 


0 TO  SO 


THN03=HH03(<) 

CALL  .PCLOX.lKi 

call  PN0X(KI 

gR(  1>  =TNO/H3(<»  

RR<2>>tM02/102(K) 

_ RR<  3)  >THN03/HN03()0 


DO  2S  H>1,3 

TF(  RR  liJOS  .a[R.RR  (HJ  .LT.0.995IG0  TO  21^ 

?S  COHTiNUE 
RETJRN 
50  J»J-1 

WRITE  <6.650»  J 


650  FORHAT(1HO»5X,»OIO  N01  CONVERGE  IN  INITAL  14  »>I3t»  riHE?*> 

STOP  _ „ 

ENO 

SUBROUTINE  PCLOX  <_K» _ 

COHMON  /JVA./  CJ02(50).CJ03(50).CJCF2(50).CJCF3(SO> .:JCCL»(500. 

1 CJCH3C(50)  •CJCLO3(50)  ,CJN20(5(II  ,CJHN03(50) 

2,  : JH202_I50)  |CJ0  31(5q.)fCJN_205(50>_  

COHHON  /HOO^L/ALT (41) ,TENP(41) ,DN (41) »0I0(41) ,OA23(41) 

RE4t-_JQ2_i. J0.3,  JH2ax-_!LN02j__JB2Qi  JN2!l5ji  JHM3,  JCH9i  JCF2, 

X JCF3,  JHCL,  JH202yJHOCL 

CQHttON  /PHRATE/  JQ2 (41)  . JQ3  (41J . JM2Q  (41 1 . JNliiilU  xJIU  (91) • 

X J4  205(41),  JH*(03  (41)  , JCH4  (41)  , J:F2  (41)  , JCF3(  41 ) ,JHC.(41)  ,.J-t202(41 

Y ,JH0CL(4t)_  _ __  

REAL  JN03 

uOHHON  /RATES/  RATE(65iAi^ij.RA(e*)  f RB(65)  , JN)3|PJ03 
COHHON  /SFACT/  FCL,FH20, FCLN03y* NO 

- REAL  NO.NO2.N0X.NO3.N2O5 

COHHON  /SPEOIE/  H(41) ,OH ( 41 ) ,HOM 4 1) , H202 (41 ) ,03(41 ) , 0 (41 ) , NO (41 ) 

1 N02(41),HN03(41>jH0X(41),CO(41)  ,02(itlljCH4(41),H20(41),H2(41), 

2 CL (41),CL0(41) ,HCL (41) , CLX (41) , OCLX ( 41 ) •N03(41)  ,N20>(41)', 

3 C.N03(41) 

L !_  jlJ _ 

RRCi  = (CL0)/(CL) 

RR:1  = RATE(29,_L)  •03(K)/(RATE(31,L)*0(K)  » R ATE  ( 32,  L)  * NO  ( K) ) 

RRC2  » (HCL)/(CL) 

HR32  »(RATE(30,L)*CM4(K)_*  RATE(  26,L)  »H2  (K)  ♦ RATEdi,  L)  •H02(K)  ♦ 
1 RATF(27,L)»M202(K) )/(RATE(V0,Li*OH(KI  ♦ RATE (33,LI *0( Kl  «JHCL(X) 
RRC1A  = (CLH03)/(CL0) 


009310 
009320 
009330 
009340 
009350 
009360 
009320 
0093SO 
009390 
009400 
00941 0 
009420 
009430 
009440 
009450 
009460 
009420 
009430 
00949  0 
009300 
009510 
009520 
009530 
009540 
009550 
009560 
009520 
009530 
009590 
009500 
00951  n 
009620 
009530 
009640 
009650 
009660 
009620 
00963  0 
009590 
009200 
009210 
009220 
009230 
009240 
009250 
009260 
019220 
009290 
>009290 
009300 
00931  0 
009320 
009330 
009340 
,009350 
009360 
009320 
00939  0 
009390 
009900 
009910 
009920 
009930 
009940 
)00995Q 
009960 


70 


c 


RRC3B  « (CLN03)/(CLI 

l»RC3A=  RATE<2S,L)*N0?<K)*FCLNj03»0Mm/_CJCL0I(K) 
RR:3a  = RRC3*  • RRCl 

CLK  = CL  ♦ :L3  » rtCL_ 

CL(K)  » CLX(K»/<1.  ♦ RRCl  ♦ RRC?‘  ♦ RRC3B) 

CL3(K)  =RRCl*CL<K)  


HC. (K)  *RRC2*:L<K) 

RETURN  

ENO 

SUBROUTINE  PNOX  (K) 


COiNON  /JVAl/  CJO?<S0),CJO3(B0).CJCFa(50>tCJCE3(S0).CJCCL ?»  > f 
I CJCH3C(60)  ,CJCLO3(S0),CJN2O(93)  iCJHNOKSO) 

2,  : JH202 (50>i:J031(50)jC JN205«58» 

CONNON  /NO0-L/ALr(41) ,TEMP(41),}H(4tl  ,010(41)  ,0423(41) 

COHNON  /NSCAT/’  SCNO 2, SCC L 03,SCH202 ,SCN205 

real  J02,  J33,'  Jh?0,  jN02,  JN20,  JN20B,  JHNDS,  JCH4,  JCF2, 

X JCF3,  JMCL,  JH202,JHOCL 


009)20 
00991  0 
009990 
010000 
010010 
010020 
010030 
010040 
OlOOSO 
010060 
010020 
OlOOSO 
010090 
010100 
01011 0 
010120 
0101 30 
010140 
010150 


CONNON  /PHRATE2  J02( 41) , J03(41) , JN20 ( 41 ) , JN32 (4 1) , JN20 (4 1) , 

X JN205(41),JHN03(41),JCH4(41) , J:F2 (41 ) , JCF 31 41) . JHC. (4 1) , JN20 2 (41 ) 0 10 16 0 
Y ,JH0CL(41)  ' 010120 

REAL  JN03  010180 

010190 
010200 
01021 0 


CONMON  /RATES/  RAtE(65,81) ,RA(6i) ,RB(65) , jN03, PJ03 
CONNON  /SFACT/  FCL .F H 20, FCLN03, -NO 


REAL  N0,N02,N0X,N03, N205 
CONNON  /SPECI_i/  M(41),0H(41),H02(41).N202(41)  , 03(41 ) , 0 (4 1)  . NO  (41 ) .0 1 0 2 2 0 

1 N3  2(41)  ,HN03(41)  ,NOX  (41  > ,C0(41>  ,02(41)  ,(;H4(  4 1)  , H 291  41 ) , H2(  4 1 ) , 010*3  0 

2 CL (41),CL0(41) .rtCL(41) . CLX (41) , OCLX ( 41 ) . NOT ( 41) . N2J5 ( 41 ) , 

3 C-N03(41) 


010240 

010250 


010260 

•«  s 

?*K  - 1 

010220 

c 

RRl 

= (NO)/(N32) 

010280 

CJN02  = JN0?(<)  • SCN02 

010290 

RRl 

= (C JNQ2  6RATE(42.L)*0(K))/(RATE(32.L)«C.O(K) ♦RAT  £ ( 40 . L) *0 3 (<) ) 0 1 0 3 0 0 

«R? 

= (HN03»/(N02) 

010311 

RR2 

= RATF(22.L)*OM(K)*ON(K)/(JNN031X)^RATE123.L)*ONIK)) 

010320 

RR3 

= (N03)/(N02) 

010330 

RR3 

= RATE(41.L)*03(K)/JN03 

010340 

RR4 

= (N205) /(N02)**2 

010350 

RRb 

= RATE (3 8, L) ’ON ( K) / ( R ATE ( 3 2, L ) ♦RATE ( 38,,  ) 'ON  ( K)  ) 

010360 

RR2 

= RATE(3  2,L)/ (RATE<3  7,L)+RArE(38,  L)  •DM(<)  ) 

0 1032  0 

RR4 

= RATE  (36,L)*RR6/(RR7*RATE(39.L)  ♦JN205(K)) 

010330 

RR4 

= RR3*RR4 

010390 

z 

RR9 

= (CLN03) / (N02) 

010400 

RRB 

= RATE(28,L)*CL0(K)*FCLN03*3N(K)/CJCL03(K) 

0 1041 0 

A = 

2.0*RR4 

010420 

B = 

1.  ♦ RRl  ♦ RR2  ♦ KR3  ♦ RRB 

010430 

C = 

NOX(K) 

010440 

CA.L  QUAD  (A,3,C,X> 
N02  (X)  = X_  _ 

NOdC)  » X • RRl 
NN03(K)  = X * RR2 
M03(IC)  = X * RR3 
N205(K)  = X»X  ♦ RR4 


RR9 


10 


CLNOTCX)  s X 
RETURN 
ENO 

SUBROUTINE  OUAO( A,B,C,X)  __ 
SO.VF  FQ.  4*X*Xffl*X  = C 
00=4. »A»C/(B*9) 


IF  (00  .GT.  .01)  GO  TO  10 
X=  B* (.5*00-.l25*0D»00) 
X*X/(2.*A) 

RETURN 


10 


X»  -B4SQRT(B*344.*A*C) 
X=</(2.*A) 


010450 
010460 
010420 
010480 
010490 
010600 
010  51  0 
010520 
010530 
010540 
01055(' 
010560 
010520 
010580 
01059(( 
010600 
010610 
010620 
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I 

ij 


Cl  0|0  O Cl  O O CIjO  o 


I 


RETURN  OlOFiSn 

ENO  0l0fe4n 

SUBROUTINE  SOLVE  (k, ALP, V .Nl)  0106S0 

0106611 

010670 

CMS  06  - CHLORINE  WOOEL  STUOV  PROCRAN 010680 

010630 

SUBR^TIJK  SOLV^-  ORGANIZES  SOLUTION  OP  CONICAL  SYSTEN  010700 

010710 

VERSION  ».0  LEVEL  77021N _ 010720 

E.R.r.flNC.  N.  0.  SZE  « N.  TRIPP  010730 

_ 010740 

' 0107SQ 

010  75  0 

REAL  B 010770 

COHNON  /MATRIX/  8(20.21) 0107S0 

COMMON  /NETPRO/  PP(4),SS(4>  010730 

REAL  J02.  jri3.  JH20.  JN02.  JN20.  JN20S.  JHN33.  JCM4.  JCF2.  010800 

X JCF3,  JMCL.  JH2)2tJH0CL  010810 

COiMON  /PHRATE/  JOZ ( 411 « J03 <41) . JH23 141 > . JN3 2 (411 . JR20 (4 L) . 010820 

X J<I20S(41).JHM03(41)  *JCH4(41)  . j:F2(41)«  JCF3(41)(  JHC.(41)  « J-<20  2(41)  010830 

Y .JH0CL(4H 010840 

REAL  JN03  010860 


COMMON  /RATES/  RATE  <66. 8 1 > . RA  <6?  ) . RBC  SSI  . JNQ3.  PJQ3 MQObO 

REAL  NO,N02tN0X,N03»N?06  010870 

COMMON  /SPECIE/  HC41)  .OH  (41  > .HOZl 41)  . M202 (41)  .031  41 1 .0  Ull»MO  (411 ,010880 

1 N32(41) •HN33(41) ,N0X(41I ,C0(41l  ,02(41) ,CH4(41) •H20(41),H2(41) , 010830 

2 CL(41),CL0<41),HCL(41) ,CLX(41 ) ,DCLK( 41) ,N03< 41) ,N235( 41) , 010300 

3 Ci.N03(41)  01031  0 

DIMENSION  V(IO).  VO(tO) 010320 

LOGICAL  LINEQN  010330 

010340 

L = ^*k  - i 010360 

MASH  a 1.66E-6 010960 

IF  (X.6E.9)  MASH  > 0.0  010370 

KK<  - 0 01038  0 

KK  = 1 010330 

N = 3 011000 

NPl  * N ♦ 1 011010 

6 DO  10  J « ItNFl 011020 

id  v6(J>  * Y(JI  011030 

1 = 1 011040 


1 CAUL  JACOB  (KtALP«Y,Nl) 

ERR  = 0. 

00  20  J s l.N 

3(J,NP1)  s PP(J)  - SS(J> 

ERR  = ERR  » (9(J.NP1)/SS(J))»»2 

20  CONTINUE 


IF  (LINEQN(M))  GO  TO  60 
IF  (ABS(ERR)  .LE.l.E-QS)  GO  TO  100 
DO  66  J s 1,N 

66  Y(J)  = Y(J)  - a(J.NPl) 

I « I * 1 

IF  (I.GT._20)  SO  TO  101 

SO  TO  1 


100  CONTINUE 

KK  » KK  » 1 

N(<)  > V(l) 

OH(X)  * V(2)  _ 

MO? (K>  • r(3) 

0 3(K(  » T(4>  

0(k)  » ALP*Y(4)” 

M232(K)  * RATE(13,L)  *7(3)  •V(3)/(  RATE(S.L)*V(2)>JH2I)7(K)«HASMI 


011060 
011060 
01107  3 
011080 
011030 
OlllOO 
011110 
011120 
0111 30 
011140 
011160 
011160 
011170 
011180 
011130 
011200 
011210 
011220 
011230 
011240 
011260 
011260 
011270 
011*80 
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u 


9 SSIl)  « BB(1>  ♦ SB(?)  ♦ BBIS) 

10  <Hl|l>*iSS(l»/V<l_»_  

11  •(!*?)  ■ (Arc?)  *■  AA(3)  * iitkl  * AA(S))/y(*) 

12  A (1,3)  « -BBi3)/Y(3)_  

CC(t)  > 2.0»BATF(2,L)*OI6(K)»H2)<K) 

CC(  2)  » 2.Q»HATEC3,L)»DID()0»CHA(K1 


CC(  3) 
CC(4) 
CC(5) 
19  CCCSJL 

cc(h 
21  ccca) 


RArE(10,L)»y  (l»)*ALP*V(3) 

RA^E  (9,L)*r(4)*V(  3) 

RATF(ll,L)*N0(tC)*V(3) 
2.0»JH202(K)*H202()() 


RATE(B,L)*r(l)*r (4) 
JHM03(K)  * HN03(K) 


2.0»RATE(l7,L)*y (1)*V(3( 
AA(1) 


CC(  9) 

CC(10)  = 

23  PP(?)  ■ CC(1)«CC(2)»CC(3)»CC(4)»CC(9)«CC(6)»CC(7)«C:(8)»(;C(9) 

1_»CC(10)_ _ 

o6(  1) 

DOC  2) 


RATE{?,L)*y(4)*V (2) 
RATE(B.L)»H202(K)*Y(2) 


00(3)  * RATE(14,(.)*Y(3)*Y(?) 

27  00J_4)  

28  00(S)  = AA(2) 

00(6)  « RATE(20.l)»HCL(K)*Y(2) 

00(7)  = RATE(?l,L)*CH4(K)*Y(2) 

00(8)  « RATE(22.L)»I4Q2(<)»DW(K1*Y(2) 


RATE(2  3,L)*HN03(IC)*Y(2) 


0119S0 
011980 
011370 
011980 
011)90 
012000 
012010 
012020 
012030 
012040 
0120S0 
012080 
012070 
01200  0 
012090 
012100 
012110 
012120 
012130 
012140 
0121Sn 
012180 
012170 
-Q121SQ 
012190 
012Z0Q 
012210 


36  A(2,2)  3-(S3(?)  *■  00(10))/V(2) 

37  A (2, 31  » (CC(3)»CC(4) »CC ( S) *00 ( 9 ) -00 ( 3) ) / Y (1 ) 

39  EE(1)  = 88(1) 

40  EE(2)  » 00(1)  


EE(3)  » RArE(?7,L)*CL(K)«H202(K) 
Ee(4)  « 00(2) 


42  PP(3)  = EE(l)  ♦ EE(2)  ♦ EE(3)  ♦ EE  (4) 

43  GG(l)  « CC(4) 

44  GG(?)  « CC(3) 

45  G6(3)  « CC(5)  


48 

50 

51 

52 
31 
54 
5b 
5 7 

58 

59 

60 


GG(  2) 

GG( 3)  

GG(4)  = RATE(12,L)*CL0(K)*Y(3) 
GG(5)  » 2.0*RATE(13.L)»Y (3)*Y(3) 


00(  9)  : 

- 0&ltO)_ 

00(11)  : AA(5) 

34  S5(  2) «D0(1) »DD(2) »00(3) ♦DD(4)»DJ (5)»D0(8) »OD ( 7) ♦OD( 8) »D0 ( 9) ♦00(10)012220 

1 ♦90(11)  012730 

35  A(2.1)  . (CS(7)  ♦ CC(9))/Y(1) (11224  0 

012»50 
012760 
012770 
012780 
012790 

.012300 

01231 0 
012320 
012330 
012340 
012350 

012360 

012370 
0123S  0 
012390 
012400 
012410 

012420 

012430 
012440 
012450 
012480 
012470 

I1124J0 

012490 
012500 
01251 0 
012520 
012530 

012540 

012550 
012560 
012570 
01255  0 
012590 
012800 


GG(6)  s DD(3) 

W ( 7Jl  *_RMLE  ( 15,t)»CL  (K)  »Y(3) 

GG(0)  - BBC  3) 

SS(3)  » GG(1)7GG(2)7G(;(3)»0G(4176G(5)»GGIB)»GG17)»B;(8) 
A(3,l)  = (EE(1)  - GG(8))/V(1) 

A(3.2)  = (EE(2)  ♦ EEC4)  - GG(61)7Y(2) 


A(3,3)  = -(SS(3)  ♦ 6G(5))/Y(3) 

PP(4)  » 2.0* J32(K)»02(<)  

HH{1)  = BBC  2) 

MH<2)  »_0P(1) 

MM(  3)  * CCis] 

MH(4)  » CC(3) 


81  HH(5) 

MH(  6) 
HH(  7) 
HH(  8) 
65  SS(4) 

911 


AA(2) 

2. 0* R4TEJ.42xL ) »M02  (K)  »V(  4)  *ALP 
2.0»R1TE(31,L)*CLO(K)*ALP*Y(4) 
2^  0 »A>P»RArE  *Y(4)»  Y(4) 


HH(1)^HH(2)7RH(3)7HH(4)4HH(5)»HH(6)»HN(7)^M9(S) 
(Wl-1)  /2 


(K.LE.Nll)  GO  TO  80 
2-_  0 fR*  f E(4?,L)»W02(K) 


IF 

_ 

t2  I RArE(i),L)*Y(2) 

T3  « RATE(10,L)»Y(3)  

T4  * 2.0*RArE(31,L)*CLO(K) 
rTl»(Tl7T2*T3^T4)*ALP 
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T5  s R«TC(6(LI*r<ll 

T6  X R»TE(7,L»*Y(?I  

TY  X RAtEOf  LI*T(3) 

rs  > Z.O*MrE(«»liL)*NO?(K) 

fT?=f5*T6*Tr»f8 



»l  * 2.0*RArE(3$,LI  •ALP 
ClxRPCM 

CALL  QUAOfAl.ai.CltXX) 

V(<»)>XX 

0(<) '=  ALP  • XX 

yp  RETURN 

80  r(4»  X 03<K» 

RETURN  _ 

ENO 

SUBROUTINE  :EL0M(NI, MITER)  

FLOM  PROGRAM  FOR  VARIOUS  SPECIESi 

SPl  = N20,  5P?  X NOX,  SP3  x CM«* 

^ SP!.  « £Cllj  S»S  . F:12 

SP6  X CH3CL,  SP7  x CLX  , SP8  = 33,  SP9  * CCU4,  S'PIB  x CO 

TIME -DEPENDENT  TERM  FOR  EACH  SPECliS  IS  D-P.  _ 

(SHOULD  ALL  BE  SET  x 0.  FOR  STEADr-STAIE  CASE) 


COMMON  /CHLOR/  XCL(81) 

COMMON  /COE-?/  A(ai),B(81).C(81) ,F(8t>.X{»l)  

COMMON  /INTSI/  XOH(81) , X 0 ID (8 1 > » X JN20 ( 8 1 ) , XJ CF 3 ( 8 1) , X JCF? (81) , 

1 XJCH3C(81),  XJO?(81)  ,^XJ03(61)  2J 8 IJj  XN^2(J  1 ) ,)L03(8l> 

?iXJCCL<i(81>  ,XCLO(81>  ,XNO(ei) 

__  COMMON  /ITER/  KKX 

COMMON  /UVAL/  CJO2(50) , C J03 ( SO) , C JCF2 (5 0 ) , CJ CF3 (6 0) , C JCCL4( S 0 ) , 

1 CJCH3C(SQ)  ,CJCL03(S0),CJN?O<SB)  .CUHN03(5I))  

2,  CJM2O2(S0) ,:J031(56) ,CJN2O5(S0) 

COMMON  / MODEL /ALT (41) .TEMP (41) ,3N( 41) ,010(41) .DA23l4t) 

COMMON  /MOLMY'D/  XM  ( 8 1 ) ,’x  H 20  (8 1 ) , P H20,  RM2,  Xll  ( 8 1 ) 


COMMON  /PARAl/  STEP, OQU , PPL ,PPU, N , M 

COMMON  /RLOM/  RN20, RNOX, RCH4. RFt 1 , RFl 2. RCM3: , RCLX . C CL 4.  R03 
REAL  n6,N02,N0X,NO3,N20S 

COMMON  _ /JP^EC  I IJi  H (41)  .OH  (41), HO?  ( 4 1 )_,_M  20  2 < 41).  tP  3(41), 0(4  t),N0(41) 

1 N32(41) ,HN33(4i) ,M0X(41) ,C0(41) , 0 2(4 1) . CH4( 4 1) ,H 29 ( 41 ) , H2( 4 1 ) . 

2 CL  (41),  CL0(41).HCL(41)  .CLX(41).0aX(41).N03(41).N235(41)'. 

3 CLN03(41) 

COMMON  /SPFCOM/  FJ,FJFC,T1^  

COMMO)(  /)(LS/  XLl  (81)  , XL2  (81)  . )(LS  ( 8 1)  , XL4  (8 1)  , XLS  (81 ) , X Lb  ( 81 ) . 

1 X. 7(81)  ,XL8(81) ,XL9(81)  .XL10(81) 

COMMON  /XXES/  XI  ( 81 ) , X2  ( 8 1)^,  X 3(8  1)  ,X4(8  1)  Vx;(81)  , Xb(  81 ) , X 7(  8 1 ) , 

1 X8(81)  , X9(81)  .X10(81) [ 

DIMENSION  PRKSl)  ,PR2(81 ) ,PR3  (81)  ,PR4(8  1)  *PR S ( 81)  , PRb  ( 81  ) ,PR7  ( 81 ) 
1 PR8(81) ,PR?(81)  ,PR10(81) 

DIMENSION  0'’P1  (81  ),0FP2(  81)  ,OFPi  ( 8 1)  , 0FP4  ( 81 ) , OFPS(  8 1 ) ,DFPS(81), 

1 DFP7(81),DFP8(81)jOFP9(81)jD£PJ,0(81)  

DIMENSION  PRll (S1).XL11(81) .DFPll (81) 

COMMON  /TRAPH2/  XLll 

LOSICAL  CON/,0KPO3 

EXTERNAL  CXL 1 , CXL 2,CXL 3, CXL4,CX. S , CXL b, CXL7, CXL8, CX. 9, CXL 10 ,C XLll 
CALL  RINTER  (0I0,)(0iD“) 

CAlL  RINTER  (OHjXOM)  

CALL  RINTER  (C JN20,X JN26) 

CALL  RINTER  ( C JCF 3.  X JCF3  ) 

CALL  RINTER  ( C JCF2, X JCF2 ) 

CAwL  RINTER  (CJCH31^X JCH3C)  

CALL  RINTER  (CJ02,XJ62) 


CALL  RINTER  (0JO3,XJ01) 
CALL  RINTER  (M02,XM02) 
CALL  RINTER  (N02.XMO?) 


01261  0 
012670 
012630 
012640 
0126SO 
012660 
012670 
012680 
012690 
012700 
012710 
012720 
012730 
012740 
012750 
012760 
012770 
012780 
"01279  0 
012800 
012810 
012820 
012830 
012840 


012850 
012860 
0128  7 0 
01288  0 
012890 
012900 
012910 
012920 
012930 
012940 
012950 

ai?9e.o 

012970 
012980 
012990 
,013000 
01301 0 
013020 
013030 
013040 
013050 
013060 
013070 
013080 
.013090 
013100 
013110 
013120 
013130 
013140 
013150 
013160 
013170 
013180 
013190 
013?00 
013210 
013»20 
01 3230 
013740 
01 3250 
01 3760 


7S 


- 

CALL  KINTER  (NO»XNO) 

CALL  RINTER  (03iX03) 

013270 

0132SO 

013290 

013300 

013310 

013320 

CALL  RINTER  (CJCCL4, XJCCL41 

CALL  RINTER  (CLO.XCLO) 
call  RINTER  CCLfXCL) 

CALL  RINTER  (H.XH) 

CALL  RINTER  (N20,XH20I 

013330 

IF  (RN20.Gr.l.O)  QLl  « 0. 

013340 

IF  (RN20.LE.1.0)  QLl  « t. 

013350 

CAtL  CSPEC(1..0..PPLtQLliRN2O.PRliDFPtiXLli:XLll 

013360 

00  1 I > 1,9 

013370 

1 

XKI)  « X(I> 

013330. 

CONV  s .FALSE. 

013390 

IF  (RNOX.GT.l.O)  QL2  < 0. 

013400 

IF  (RNOX.LE.l.  0)  QL2  ^ 1. 

013410 

<1*1 

013420 

IF  (NITER. Gr.l)  K1  = 2 

013430 

00  206  KKK  : <1.25 

013440 

CALL  CSPECd.  ,0.,PPL.QL2,RNOX,PR2,OFP2,XL2,:XL2) 

013450 

ENAX  > 0. 

013460 

00  202  I = 40,01 

013470 

El  *ABS<(X2(I)-X(II)/X(1)) 

013460 

IF  (EI.GT.ENAX)  FNAK  = ET 

013490 

^0^ 

CONTINUE 

013500 

IF  (EHAX.LT.O.OSICONV  X .TRUE. 

013510 

IF  (CONtf)  SO  TO  204 

013520 

IF  (KKK.EQ.l)  GO  TO  204 

013530 

00  203  I « 1.9 

013540 

^03 

K2(I>  X (X2<I)  * X(I))/2. 

013550 

SO  TO  206 

013560 

204 

00  205  I X 1,9 

013570 

205 

X2(I)  « X(I> 

013560 

IF  (CONV)  GO  TO  2 

013590 

206 

CONTINUE 

013600 

GO  TO  500 

013610 

2 

CONTINUE 

013620 

IF  (RCH4.Gr .1.0)  QL3  x o. 

013630 

IF  (RCH4.LE.1.0)  QL 3 = 1. 

013640 

CA.L  CSPEC(1.,0.,PPL,QL3,RCH4,PR3,OFP3,XL3,;XL3) 

013650 

00  3 I X 1.9 

013660 

3 

X3(I)  X x(I) 

013670 

IF  (RFll.GT. 1.0)  QL4  x o. 

01366  0 

IF  (RFll.LE.1.0)  QL4  x i. 

013690 

CA.L  CSPEC(1..0..PPl.QL4.RF11.PR4,OFP4.XL4.:XL4) 

013700 

00  4 I X 1,9 

013710 

4 

X4(I)  X X(I) 

013720 

IF  (RF12.6r.l. 0)  QL5  x o. 

013730 

IF  (RF12,LE.1.0)  aL5  * i. 

013740 

CA.L  CSPEC(1.,0.,PPL,QL5,RF12,PR5,OFP5,  XL5,:xL5) 

013750 

00  5 I X 1.9 

013760 

5 

X5(I)  X x(I) 

013770 

IF  (RCN3C.GT.1.)  QL6  x Q. 

013760 

IF  (RCH3C.LE.1.)  OLS  x i.o 

013790 

CA. L CSPECd  . . 0.  . PPL  . QL6  .RCH3C.>R6.0FP6  .XL6.  CXL6) 

013600 

00  6 I * 1,9 

013310 

6 

X6(I)  X X(I) 

013820 

IF  (RCCL4.Gr.l.)  QLO  > o. 

013330 

IF  (RCCL4.LE.1.)  QL9  x i.o 

013340 

CA.L  CSPECd.,  0.«  PPL,  QL9,RCCL4.>R9t0FP9tXL9.CXL9l 

013350 

00  9 I X 1.9 

013660 

9 

K9(I)  X X(I) 

013370 

IF  (RCLX.GT.1.0)  QLT  x o. 

01333  0 

IF  (RCLX.LE.1.0)  QLT  x i.o 

013390 

CA.L  CSPECd.,  0.  *PPL,  QL7,RCLX. PIT. OFPr.  XL/.  CXLT) 

013900 

00  7 I X 1,9 

013910 

7 

K7(I)  X x(I) 

01 3920 

76 


I 

[ 


I 


I 

1 


i 


ir  IRH2.CT.1.0)  QLll  < 0. 

IF  (RHZ.LE.1.0)  QLll  « 1. 

C AL  L CS PC C ( 1 . 1 0 . » PPL t QL 1 1 1 RH2 f PRl 1 ( OFP 1 1 « X LI 1 1 CXL It 
00  It  I « 1|N 
11  Xll  (Tr“ « Xlt) 

X ■ N1 


aoo 


013930 
0139%0 
013950 
013960 
01 39ro 
013980 


801 

DO  801  I « 1,N 

X8(l>  * X03(I)2C0N(I) 

0139)0 

016000 

016010 

016020 

CONV  * .FALSE. 

RU33  « X03(N1)/C0N(N1) 

IF  (R03.GT.1.0)  QL8  > 0. 

IF  (ROS.LE.l.O)  QL8  > 1. 

016030 

016060 

DO  806  KK  s 1,25 

016050 

CA.L  CSPEC  ( 0.,RUO3,PPL.QL8,RO3. 

PR0,}FP8,XL8.:XL0)' 

016060 

EMAX  = 0. 

016020 

DO  802  I > l.N 

01608  0 

El  :ABS( (X0(I)«X(I))/X(I)) 

016090 

IF  (EI.GT.ENAX)  ENAX  ^ El 

016100 

802 

CONTINUE 

016110 

IF  (ENAX.LT.O.ODCONV  * .TRUE. 

016120 

806 

DO  805  I = 1,N 

016130 

805 

X8(I)  « X(I) 

016160 

IF  (CONV)  GO  ro  8 

016150 

806 

CONTINUE 

016160 

GO  TO  501 

016120 

8 

CONTINUE 

01618  0 

0KP03  « .FALSE. 

016190 

CAtL  RCPCN  (N1,OKP03> 

016200 

IF  (0KP03)  GO  TO  50 

016210 

CAlL  RINTFR  CLO.XClO) 

016220 

CALL  RINTER  (N02,XN02) 

014230 

GO  TO  800 

016260 

50 

N = 81 

014250 

CA,.L  SETUP2(SrEP.N) 

016260 

z 

016220 

N12  = (N1  ♦ 1122 

01628  0 

DO  100  J : 1,61 

016290 

I « 2*J  - 1 

016300 

NOX(J)  = X2(II  * CDNd) 

016310 

CH6(J)  : X3(II  » CON(I) 

016320 

CLX(J)  s X2(I)  « CDNd) 

016330 

rt2(J)  « Xlld)  * CDNd) 

016360 

IF  (J.GT.N12>  GO  TO  100 

016350 

03(J)  s X8(I)  * CON(I) 

016360 

100 

CONTINUE 

016320 

RETURN 

016380 

z 

016390 

500 

NRITE  (6,600) 

016600 

600 

FORHAT  (1H0,»  X2  DOES  NOT  CONVERGE 

IN  25  ITERATIONS  • CFLON*) 

016610 

STOP 

016620 

501  NRITE  (6,601) 

601  rORHAT  ( tHO,> 

STOP 

ENO  

SUBROUTINE  RISTER  (XX, XXX) 
OliENSlON  KX(50) ,XXX(ei) 

DO  Iff^  * 1,61 

J » 2*1  - 1 

10  XXX (J)s  XX(I) 


X8  DOES  NOT  CONVERGE  IN  ZSITERATIONi  - CFLON*) 


01663U 

016660 

016650 

016660 


0166T0 

016680 

016690 

016500 

016510 

016520 


DO  20  I > 1,60 

J * 2^1 

TPl  » i ♦ 1 

20  XXX  (J)  * SQRKXXd) 
RETURN 
END 


• XXdPD) 


016530 
016560 
016550 
016560 
016520 
01 6500 
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1 


1 


o 


SU3R0UTTNC  3SPEC  (U<>»OR,PtQ»R,PR»OFP»XLtCXL»  014590 

FOK  FIXF0_HIXL'<S  RATIO  »T  TOP  - »U  « 0.  QU  « 1..  ftU  iJaf  ttE  SPCCIFI014b0  0 
C04N0N  /BC/  PJ»QU»Rll»PL.QL«RL(1000)  014610 

coHNftM  /coE-z/  A(ei).a(>i>.ciai>.FC»i>.x(au  _ oi46?o 

COMMON  /PARAl/  STEPtOQU* PPLyPPUfNfN  014630 

PIMENSIOM  P^($1».DFP(01).XHB1) 014640 


»U  = UP 

RU  » UR  

PL  a P 

PL  = 

IF  (O.EQ.l.l 

■<H1)  ■ R 


PL 


0. 


10 


call  CXL  <“R,0FP,XL,N) 

QU  a 1.0  __  

IF  (PU.EQ.O.)  GO  TO  10 

ou  a XL(N)  » aou  

call  COEF  (OR,XL»OFP) 
CAwL  TRIPIA  (0) 


?0 


« l»N 
PRin  - 


XL(I)»X(I) 


DO  20  1 
XL(I»  ■ 

RETURN 

END  

SUBROUTINE  SX.l  (PR1,DFP1,XL1,NI 

COMMON  /1NT81/  XQH ( 0 11 . XDIO (0 II . X JN2Q (0 1 I .XJCF 3 t 01 I . X JCF? » 1 1 
1 XJCM3C<ait ,XJ02 (01) ,XJ03  (01) »X402 (0 1 ) • XN02( 0 1 ) • XOS( II ) 

2.  X J CCL4(fll).XCLQ(01)  .XMQ(fll) 


10 


COMMON  /NOATA/  CEK ( 0 1) , COM(01 ) .CT EMP( 01 ) . COA ( 0 1 ) 

JHQl-.  _ 

COMMON  /RATES/  RATE (65»S 1 ) » RA (65 ) i Ra( 65 ) * JN03, P JOS 

COMMON  /SPECQN/  FJ.FJFC.TL 

COMMON  /SPLOSS/  SPL 1(0 1) , SPL4 (01 ) • SPL6 ( 01 ) .3PL6 (0 1) . SPL9 ( 01) 

*00  io  I * 1,M 

RRKI)  « 0. 

OFSKI)  a 0. 

XLKI)  a ((RArE(43.1)  » RATE<44.I)  )»XDID(I)  » XJN20(r))  * GDMd) 
SP.l(I)  a RArE(44tI)  • XOIO(I)  * COM(I) 

CONTINUE 


RETURN 

END 

SUBROUTINE  CXL2  (PR2,DFP 2,XL2,NI 
COMMON  /ITER/  KKK 


COMMON  /INTSl/  XOH(Sl)»X0ID(01)tXJN2O(01)»XJCF3(Sl).XJCF2(91) 

1 XJCM3C(01) .XJ02(01)  .XJ03(01) . XB 02 (01 ) . XN02(  0 1 ) .X03 ( II  > 

2f XJCCL4(01) tXCLO(Ol) pXNO (01) 

COMMON  /NDATA/  CEK(0 1) .COM (01) .CTEMP< 01 ) .COA ( 01) 

REAL  JN03 

COMMON  /RATES/  RATE (66. 0 II .RA (6i ) .RB) 6S ) . JNO 3 .PJQ3 


FJ,FJFC,TL 
SPLl(fll) 


LjSPLBtBiJ. 


COMMON  /SPECON/ 

COMMON  /XXES/  K 1 ( 0 1) « X 2( 0 1) . X 3( 1 1 ) .X4 (0 1) «X> ( 01 ) . X6( 11 ) « X 7( 0 1 ) , 

1 xo(oi).x9<ai)ixio(oi) . __ 

DIMENSION  PR2(01)fDFP2(01) •XL2(11) »XL2T (01) 

IF  (XKX.GT.l)  SO  TO  0 


00  5 I a 

Kt21<I)  J 
XL2(I)  a 

Ob  6 I a 

XL2T(i)  = 
XL2  (I) 


1#7 

C3M(I)/(7.»a.64E4) 


XL2T(I) 

Oi  11 


C0M(I)/(10.«a.64E4) 
X>.2T(I) 


DO  7 I a 13,01 

*i-LUlL  « H«<l 

7 XL2(I)  a XL2T(I) 

0 DO  10  I a l,N 
OFP2(I)  a 0. 

PR7(I)  a 2.0»SPL1(I)»X1(I) 


014650 

014660 

014670 

014690 

014690 

014700 

014710 

014720 

014730 

014740 

014750 

014750 


014770 
014790 
014790 
014900 
014910 
.fllkiZJL. 
014930 
014940 
014950 
014960 
014970 
. J11410  0 
014390 
014900 
014910 
014920 
014930 
014940 
014950 
014960 
014970 
014980 
014990 
015000,  . 
015010 
015020 
015030 
015040 
015050 
Q15060 
015070 
0150S  0 
015090 
015100 
015110 
015L20 
015130 
015140 
015150 
015160 
015170 
J151B_0 
01519  0 
015200 
015210 
015220 
015230 
015240 


78 


COHHON  /RATES/  RATE (6$, a 1) « RA(6S I » RB< 6S ) « JNOS »PJ03 

CORHON  /SPESOR/  FJ,FjrC,TL  _ 

CORNON  /SPLOSS/  SPLIUI)  t SPL^ (Yl  ) »SPL~9 ( $1)  *SP'L6(8~1I  t S>L9  (61) 
DIREWSIO)!  P<a(ai)  ,DFP6iei)iXt6(ai)  _ 

00  la  I ■ i,N 

PRS(X)  » 0.  

OF»a( I)  = 0. 

XL6(II  » {FJ*XJCH3C(I)  ♦ RAiE  (UJ ) •XOHl  I)  ) * COMII) 

SPL6<I»  * XL6(I» 

10  CONTINUE  

RETURN 


SUBROUTINE  CXL7  (PR7,OFP7,XLr,N» 

CORRON  /IRT917  XOH(S  1 ) , X QJO  (8 1 ) j X JN7Q.(a  1 ) i X JCF 3(8 1)  , X J CF 2 <5 1 ) f 
1 XJCHSC(81),XJ02(R1>  .XJOSttTt)  «X) 0 2 1 3 1)  « XNO?(  8 1 ) *XOS ( S 1 ) 
2|XJCCL%(81)  ,XCL0(81>  tXNO,(81)  _ 

CORNON  /NOATA/  CEK( 8 1 ) , C OH(«l I t 0TENP( 81 > , COA ( 8 1) 

CORRON  /SPECOR/  FJ,FJFC,TL 

CORNON  /SPLOSS/  SPLl ( 81 ) • SPL4 ( 81 ) »SPLS( 81 ) ,3 Pl6(81» • SPL9 ( 61) 
CORNON  /XJLES/  Xl(ai)  .X2(81),X3(81)«X4(81)iX;(81)fXK31).K7(81). 
1 X8(81>tX9(Sl)(XiO(61) 

0IRE)(SI01j  PR7(81)»DFP7(81).XL7(S1) 

00  lb  I » 1,7 

) XL7(I)  . C0R(n/(7.»8,84E4) 

00  20  I s 8,11 

) XL7(I)_=  CDR(T)/(10.»a«64E»> 

00  30  I > 12,81 

1 XL7(I)_*  0,0  _ _ 

00  48  I S 1,N 


PR7(I)  * 
1 ♦ 
40  CONTINUE 
RETURN, 
FNO 


3.0*SPL4(I)«X4(I) 

2tO*iPkiil)*Xi(n_ 


2.a»SPL5(I)«XS(I)  ♦ SPL8(I)»X8(I) 


CORNON  /INTSl/  XOH(0 1 ) , XOIO (81) ■ X JN20 (6 1) , XJCF3(81) , K JCF2(S 1 > , 
1 X JCR  3C'  »_ll  1 X JO?  ( 8 lUXJiO  3 ( 6 D ,Xi  52141)  , xne?! 81 ) . XOS ( 11 ) 
2,XJCCL4(81),XCL0(81) ,XN0(81) 

CORRON  /NOATA/  CEKiai) ,CDN(81) ,gTENP(81 ) .C0A(61) 

REAL  jW03 


CORNON  /SFACT/  FCL,FH20, FCLN03,- NO 

CORNON  /)n(E5/  XI  (ei),X2(ai)  .X3(31)  iX4(ai)  .XS(ai)  .X8(81).X7(81)  . 
1 X6(B1),X9(91),X10(81) 

DIRE  PSION  PR8(81) ,DFP6(81) ,XL8()1) .XX (81) 

no  10  1 >1,14 


XX(I)  « XCLO(I)*ALP 
(LA  > RATED, I)*XH02<I) 

(L9  > RATF(7, I)*XON( I) 

(L.  • 2.  1*RAT£(42,p*XN02  (I)*AtP 
*1(1  . RATrM«,II*XR'/7(I)*ALP 

•i  •XJiilCikf  

• • /.f••AT>lll,II•((II) 

t P.  *••(!'  ( 14,(1 •fcLP*LnN«l>*l8<|) 

• ••  •#  • • »«  . r • • iiip  ( I 

* • ■ • «•..  .11  f (ill  »»■,., I 


’CON((  I 


tU 

*•  • f ■ 


01491  0 
014920 
01S930 
014940 
014940 
014960 
014970 
014980 
014990 
016800 
016010 
016020 
016030 
016040 
016040 
016060 
016070 
0160)  0 
016090 
016100 
016110 
016120 
016130 
.416140 
016140 
016160 
016170 
0161)0 
016190 
016200 
01621 0 
016220 
016230 
016240 
016240 
016260 
01627  0 
0167)  0 
016»90 
016300 
01631 0 
416320 
016330 
016340 
016340 
016360 
016370 
P163) 0 
016390 
016400 
016410 
016420 
01643  0 
016440 
016440 
016460 
016470 
1164)0 
0 I 6«  9 0 
•lO'OI 
•16^1 • 
0(  » • ’t 


' % 


COMMON  /INTil/  X0M(51)»X0ID(ai)|XJN20(Sl)tXJCF3(Sl)f<JCr?(Sl) • 

_1  XJCM3C(ei)>XJQ2(81)  ,XJ03  (»1)  ,X-<02(>1)  , XNOg(  »1>  .K03OH 
2fXJCCL%l«l)  iXCLO(Sl»  |XNO(«ll 

COMMON  /NOftTA/  CEK(ai) ,CDM(dl) ,CTEMP< »t ) .CD> ($1) 

COMMON  /SPECOM/  PJfFJFCtTL 

COMMON  /SPIOSS/  SPLl(ei) iSPt»<8L>t$PLS(ai)iSPU6(Blli5PL9<et> 

DIMENSION  P^9( SI) »0FP9( ail .XL9(I1) 

DO  10  I > 1|N 
PR9(II  * 0, 

0F»9<I)  * 0. 

XL9(I)  » FJ*x  jCC«.MH  *008(1) 

SPl9(I)  ■ XL9(I) 

10  CONTINUE 

RETURN  _ 

EN3 

SU9R0UTINE  CXlII  (PRll.DFPll.XLll.M) 

COMMON  /CHLOR/  XCL(81) 

COMMON  /INTiK  XOH(8  1 ) . XOID  (81) . X JN2Q  (81)  . XJCF  3(81)  . X JCF?  (SI)  . 

1 XJCM3C(81)  >XJ02(81)  yXJ03(81)  *X-I0  2(8 1 ) t XN02(  6 1 ) t XOS  ( 81  ) 

ItX JCCL»(ai) .XCL0(81) .XN0(81) 

COMMON  /HaMVO/  XM(  8 1 ) , X H 20  (8 1)  , PH20»  RH 2t  Xll  ( 6 1 ) 

COMMON  /NDSra/  CE<(81).CDM(81).CTEMP(81).CD>(811  _ _ 

REAL  UNO 3 

COMMON  /RATES/  RATE ( 65 . 81) . RA (65 ) .RB( 65 ) . JN33 . PJ03 

COMMON  /SPEC09/  FJ,FJFC,TL 

DIMENSION  PRlKOD.OFPll  ( 81)  ■ XLll  ( 81) 

DO  lb  I = 1,M 

PRll(I)  * R AT  Ed  6.1)  »XH(I1*XH02(  DERATE  (2.  I)  *XOID  (I)  » XH2  0 (II  »PH20 


DO  10  1 = 1,M 

PRll(I)  * R AT  Ed  6.1)  »XH(I1*XH02(  DERATE  (2.  I)  *X01D  (1)  » XH2  0 (I)  »P) 
XLll(I)  = (RArE(26,I)*XCL(I)  ♦ R A T E( 29, I) •X) H ( I ) 

1 ♦ RATE(A.I)»XOIO(I))  » COM(l) 

10  CONTINUE 
RETURN 
END 

SUBROUTINE  COEF  (PR.Xl.DFP) 

C SUBROUTINE  COEF  TO  COMPUTE  ALL  NEEDED  VALUES  FOR  TRIDIA _ 

C S.S.  FT =0,FA=2,FB=0,FM=0 ; T.D.  FT=1 ,F A»l, FB= 1 , Fi= 1 

C EK=d)Or  COEF,OM=AIR  DENSITY . DF=1N ITIAL  MIXING  RA T 10. NgRO. OF  LATERS 
C THE  XA. UFS  OF  B(l)  AND  C(N)  ARE  SPECIFIED  BUT  NOT  USED 

r* 

w _ ___ 

COMMON  /BC/  P“j,QU,RU,PL.QL,RL(iaOO) 

COMMON  /COE- l/AA(81).BB{8  1).CCdl)  .DL(81)  . DJ  ( 81)  .U(  81) 

COMMON  /C0E~2/  A ( 81 ) . 3 ( 81 ) . C(81)  . F ( 81 ) , X ( 81) 

COMMON  /NDAT A/  CEK(81) .CDM(ai) .CTEMP( 81) |C0A181) 

COMMON  /PARAir  STEP, DQU .PPL ,PPU, N ,N 

COMMON  /TFCTR/  FT.FA.FB.FM 

REAL  PR  (81) ,X.(81) .0FP(81) .T(61) ,00(81) ,00R(81),S(8l) 

IF  (FT.EQ.l.)SO  TO  5 


00  2 I = 1,M 

2 OF>  (I)_=  0. 

5 DZ*l.bEf05 

0T=  3. 15576Er*STEP 

AA(D  * 2.0*CFK(l)*CON(i) 

TT  = AA(1)*J(1) 


NN1»N-1 
DO  10  I-1,N 

10  T(i)  = b.9*XL(I)*6T/C0M(r) 

DO  90  1=2, NMl 

S (t  )=^Rn ) *07/008 (I) 

OD(I)»(-(FT  »r(I)»U(l)»AA(I)))*-A 

90  aOR(I>s(-Fr*T(I)»U(I)»AA (I))*FB 
IF  (ABS(PL) .LE.1.E-60)G0  TO  60 
C fluxes  are  SPECIFIED  BOTH  aT  ToP  AND  BOTTOM 

Sd)*2.0*RL(M)*O2/PL  

00(1)  --(FT/TT  • Td)/TT  ♦ l.'8)»FA 
OUl  1 ) •!.  e»Fi 


),S(8l) 


016570 

016980 

016930 

016600 

016610 

016620 

016630 

016640 

016690 

016660 

016670 

016680 

016630 

016700 

016710 

016720 

016730 

J)16740 

016790 

016760 

016770 

016780 

016790 

_ai6soo, 

016310 
016320 
016)30 
016340 
016390 
016)60 
016370 
016380 
016390 
016900 
01691 0 
016920 
016930 
016940 
016990 
016960 
01697  0 
016930 
016990 
017000 
017010 
017020 
017030 
7 


017090 
017060 
017070 
01705  0 
017030 
01710 


017110 
017120 
017130 
017140 
017190 
017160 
017170 
017130 
017130 
017200 
01721 0 
(11  7»»|1 


OD^(l»  » l-FT^TT  ♦ T(l)/TT  ♦ l.n*FB 
F (1 » =DOB<t)»DF(»ti  >-DUCl)  »0FPC2)»S(it 

SO  ro  FO 

0 FLUX  AT  TOFtSFESIFIEO  WIXIN6  RATIO  AT  BOTTOW 

60  S(1I>RL(1I 

DO( 1>«.5*FA 

0U(1)«0.«FA 

00^  

F(l)*0DRCi)*0*P(l)*S(l> 

70  IF  (ABS(QU) .LE.l.E-6a)G0  TO  71 

IF  (ABS(PU) .LE.1.E-60)GO  TO  77 



0D(N)>(1.^QU»0Z)»FA 

0L(N>=-1.1FJL  

DOR(N)*-OOIN)*FB 

GO  TO  73, 

S FLUX  SPECIFIED  AT  TOP 

71  S(N)  = 7.0*^U»DZ/PIJ 

OD(N)  s 1.0»FA 

OL ( N>  g -1.0»FA 

OO^(N)  > -1.0*FB 

_ 50  _I0 _73 

C HIXINS  RATIO  SPECIFIED  AT  TOP 


00(N)  « 0.5>FA 

Bu  m ? Ji 

00<(R)  s -.5*'B 

73  00  SO  1=7. wm 

IM1=I-1 

IP1»I»1 

80  F(I)3*0L<II»DFP(IN1>>00R(I)*0FP(I)>DU(I)*0F>(IP1)-S(I) 

F(N)=-DL  IN>»D-P<H-H»0DR(N1  »DFP(NI»S(RI 

00  90  I«1»N 

90  A(t>sDD<I) 

do  91  I«7»N 

91  8<r)=DlCI) 

00  9?  I>l»Nil 

9?  C (I)  =00111 

B(i)  *1.0 

C(<)  = 1.0 

0L( 1)*1. 

OU(NI *1. 

RETURN 

END 

SUBROUTINE  TRIOIA  (N) 

SUBROUTINE  TRIDIA  TO  CONFUTE  MIXING  RATIO 

CONNON  /C0E^7<  A (61 ) • B (0 1 ) • CIOll  t F (01 > » X (Oil 

real  ALPHA(8tl.GANNA(6U.G(ai> 

IF  (A(l).Ea.O.O)  GO  TO  100 

-»i>lHA_(t)r-A(t> 

GAiNA  (1)*C(1)  ZALPHAd) 

NH1=N-1 

00  10  1*1. Nil 

IF  (ALPHAdl, £0.0.0)  GO  TO  100 

GA1NA(Z)*C(I)ZALPHA(I) 

l?l^Ill 

id  ALPHA (IP1I*A(IP1)-B(IP1)»GANNA(( ) 

G(1)«F(1>ZALPHA(1)  

00  30  1=2, N 

30  G(I)*(F(H-B(I>»G(I-1))/ ALPHA(I) 

X(N)*G(N) 

DO  40  1*1, Nil 

J*1-I 

40  X(J)*G(J)-GANiA( JI«K (J^ll 
GO  TO  101 

100  MRITE  (6,101)  I 


017230 
017240 
017250 
017260 
017270 
0|72B  0 
017290 
017300 
017310 
017320 
017330 
017340  _ 
017350 
017360 
017370 
017300 
017390 
017400 
01741 0 
017420 
017430 
017440 
017450 
JILZ.%6JL_ 
017470 
0174SO 
017490 
017500 
017510 
_<1175?0 
017530 
017540 
017550 
017560 
017570 
017580 
017590 
017600 
017610 
017620 
017630 
0 1 7 64  n 
017650 
017660 
017670 
01768  0 
017690 
0177JKI 
017710 
01772O 
017730 
017740 
017750 
II17760 
017770 
017780 
017790 
017900 
017910 
017870 
017930 
017)40 
017950 
017)60 
017970 
01 7000 


FO^MT  (/(ZXt'SINGULftR  MATRIX  - 

RETURN 

EN3 

SUBROUTINE  REPPM  <N1,0ICP03) 
LOGICAL  OKR33 

COMMON  /JVAl/  CJOZ(SO) iCJOatSO). 


;JCF2<50), 


1 CJCH3C(50) »CJCLO3(S0),CJN2O(S0) ,CJHN03CS0) 

2 1 _ 5JM2O2tS0)  ,SJ0  31C5  0>.CJN20S(SBI 

COMMON  /HOOEL/ALT(lil>  •TEMPIGl)  •0NI41)  tDIO(At)  ,OA23(lil) 

REAL  JM03 _ _ 

COMMON  /RATESV  RATE C 6S,S 1) tRA (6> I ,RB(69 ) » JN3 3 ,P 303 
REAL  N0iN02iN0X«N03i  N20S 


0l789n 

017900 

017910 

017920 

017930 

0179<t0 

017950 

017960 

017970 

0179BO 

017990 

OISOOO 


COMMON  /SPECIE/  H(<*ll  >OHI  61)  t HO>  ( 4 1)  , H202(61)  , 03(411  1 0(4  L)  » MO  (41)  ,01001  0 

1 N32(41)  ,HM33(41)  ,MOX(41)  ,C0(41)  ,02(41)  ,CM4(41),M2I)(41)  .M2(41)  , 010020 

2 CL  (41)  ,CL0(41)  ,Ha  (41)  , CLX(41)  , 0 CLX ( 41 ) , NOS  ( 41)  , l«3S(41)',  0100  3 0 

3 CLN03(41) 010040 

COMMON  /XXES/  XI  ( 01)  , X2(  0 1)  ,X3(3  1)  ,X4  (0 1)  , X>  ( 0 1)  , X6(~S1 ) , r7( 0 1 ) , 010050 

1 XO(Ol)  .X9(31)  ,X10(81) 010060 

real  CL31(41),N021(41)  010070 


Mil  = 
ElM/U 
E2MAX' 
DO  10 


(Ml  - l)/2 
» 0«  

> 0. 

I - liNll 


L * 2*1  - 1 

CLOl(l)  = CLO(I) 

N021(I)  > N02(I) 

ALP  = (CJ03(I ) _♦  PJ03)/(RATE(34.L)  ».21»DM  (J)  J • 21 
33(1)  * X0(2*I  - 1)  • OMd) 

0(1)  = ALP  » 33(1) 

CLX(I)  s X7(L)»OM(I) 

MOX(I)  = X2(L)»DM(I) 

CALL  >MOX  (I) 

CALL  PCLOX(I) 

El  ■ ABS((C.0(I)  - CL01(i))/CL0KI)) 

IF  (El.GT.ElMAX)  ElMAX  = El 

E2  s AaS((N32(I)  - M021(I))/N021(I)) 

IF  (E2.GT.E2MAX)  E2MAX  = E2 

CLO(I)  » (CLO(I)  ♦ CL01(I))/2. 

N02(I)  = (M32(I)  » N021(I))/2. 


El  ■ ABS((C.0(I)  - CL01(I))/CL01 (I)) 

IF  (El. GT. ElMAX)  ElMAX  = El 

E2  s AaS((N32(I)  - M021(I))/N021(I)) 

IF  (E2.GT.E2MAX)  E2MAX  = E2 

CLO(I)  « (CLO(I)  » CL01(I))/2. 

N02(l)  = (NJ2(I)__*  N021(I))/2. 

CONTINUE 

IF  (E IMA X.Lf.. 010. AN0.E2MAX.lt..  0 10) 

return 

END 

SUBRdUTINE  03 lint  (X,Y,IL,fu) 
DIMENSION  X(9,41) .Y(9) 


0XP03 


IF  (1U.LE.40>  GO  T3  5 

MRITE  (6,600)  lU 

) FORMAT  (IHO.*  IN  5U9ROUT INE  03LIMT.  lU  «».I3i 
1 GRAND  ARRAY*) 


00  10  I "i.a 

Y(I)  3 0. 

00  10_U  * IL, 
Y(t)  = Y (I)  i 


lU 

(X(I,J) 


X(I,J*1))*1.E5 


RETURN 

END 

SUBROUTINE  PRINTX  (I,LLL,LLU) 

COMMON  /INTDEN/003INT(41) .0MINr(41).0AINT(41)  _ _ 

COMMON  /JVAL/  C J02( 50 ) , C J03 (50 ) , C JCF2 (5 0 ) , CJCF3 (5 0) , C JCCL4( 5 0 ) , 

I CJCH3C(5B) , CJCLO3(50),CJN 20(50) ,CJNN03(50) 

2,  C JM2d2(50)  ,CJ031(50)  •CJN205(5b) 

COMMON  /NOOEL/ALT (41) .rEHP(4t ).)M( 41) .010(41) .042314(1 


l2iOLlT  tM2(41)  , 016020 

l«3S(41)',  016030 

016040 

X6(Sl),r7(61),  016050 

016060 

016070 

016080 

016090 

016100 

016110 

!L18l?_o. 

016130 

016140 

016150 

016160 

016170 

JLl  81^.0 

016190 

018200 

01621 0 

_ _ 018220 

016230 

015240 

010250 

018260 

018270 

018280 

016290 

[E, 01830  0 

' 016310 

_ 018320 

016330 

_____  _ 016340 

010350 

018360 

018370 

TJIJl  MIGM  POR  INTE0183S0 
016390 

. 018400 

016410 

aL«42  0 

016430 

- _ _ 018440 

016450 
010460 
010470 

018480 

018490 
_ 018500 

0),CJCCL4(50),  010510 

N»(50)_  010520 

016530 

314(1  016540 


COMMON  /MOLHYO/  XM(8t) »XH20(ei)|  PH2a«RH2«Xll (61) 

COMMON  /M0»r6/  CEK(8 1) . C0W<6t)  .CTEWP(6t ) tCD>  (61) 

COMMON  /OLD/  0J02(6l)  f0J03(%l)  t)jbF2(61)  ,OJ:F3(%1),OJCCLVU1)  * 

1 0JCM3C(»l)i0JCt03( »l).0JN20(»l) .0JMN03(»l).  OJH202(»l> .0J031(»1) t 

2 OJ N20«  ( ill)  ( OLOOH  (iii  ) , 00  3 INT  (%ll  « 003 ( 111 ) 

COMMON  /PRODS/ POODH  (7.lil)  . SOOOMO  iiil)  ■ 03INT  (%1)  , CLCM8(iill  ■ 

1 YY  (9)*HHNO,%ll 

RE8L  NOiNO2.M0XtNO3.N2OS 

COMMON  /SPECIE/  H(61)  .OH  (%l)iH02  (iil)f  MEOEC^l)  •03(%n  » 6 (61;) . NO  (61) 

1 N02(61)»HM33(61)  .M0X(611  tC0(61)  .02(61)  .CH6(  61)  .M2I)(61)  . M2(61)  . 

2 CL(61),CL0(61),HCL(61) .CLX(61),0CLX(61) .N03 (61)tN239(61l • 

3 CLN03(61) 

DIMENSION  XL11(81) 

COMMON  /TR>»H2/  XLll 

COMMON  /XLS/  XL1(61)  ,XL2  (61)  .XLS  (61)  ,Xi.6(61l  .XL5(6t)  .XL6  (61)  . 

1 XLy(81)  »XLa(81),XL9(81)  .XtlO(ei)  _ __ 

COMMON  /XXES/  XI (8 1) . X2( 8 1) . X3(S1) » X6(6 1) « Xi ( 81) . X6( 81) » X7( 81 ) » 

1 Xa(81).X9(81).X10(81) 

DIMENSION  C1(61).C6(61).C5(61),C6(61)  .C9(61l 

9EaL  MCL(61)  .MCL0(61) .NMCt(61).MCLN03(61) .Ml  (61) 

CALL  MCE 

MRITE  (6,601)  I 

MRITE  (6,602)  (8LH  J)  .0J02(  J)  .OJ03(J)  .QJCF2(  J)  i0JCF3(  JI.OJQSKJ)  . 
1 003  (J)  ,OO3IlkT(J)i0MINr(J)  ,OLO)H  ( J)  , J«ti.L  ,LLU) 

CA-L  PAGE 

WRITE  (6,603)  I 

WRITE  (6,606)  (»LT(  J)  ,0JCL03(  J).  0JN20(J)  .OJ-(N03(J).3JM20g(J)  • 
i 0JN20S( J),3JCCL6( J) ,0JCH3C(J| .JaLLLtLlU) 

CALL  PAGE 

WRITE  (6,1601) _ 

WRITE  (6,602)  (ALT(J)  |CJ02(J)  ,CJ03  (J)  ,C  JCF2(  J)  ,C;JCE1(  J)  ,C  J031  ( J)  , 


CALL  PAGE 

xRire  

WRITE  (6,606)  (ALT(J) ,CJCL03( J),CJN20(J) •CJ(N03(J),CJM207(J)  , 

1 CJN20S(_j),CJCCL6(^).CaCH3C(J).J»LLL.LLU) _ . 

DO  10  J » LLL.LLU 

NCL(J)  « CL(J)/OM(J) 

MC.O(J)  « C.O(J)/DM(J) 

MHCL(J)  > MCL(J)/OM(J) 

MCLN03(J)  « CLN03(J)/DN( J) 

10  COWTINUE 

_ WLINE  = LLU  - LLL  ♦ 1 

CA.L  PACE 

CALL  LINES  (3»NLIME).RETURNS(315) 

316  WRITE  (6, 60S) 

WRITE  (6,606) (K. ALT (X) . H (K) .0M(<> . M02 (K ) . H232 (Kl .0(0 . 03 (K) . 

i 03INT(K) ,0I0(K)yK>LLL,LLU) 

_ CALL  LINES  ( 3»NLIME)  .RETURNS ( 328  ) 

320  WRITE  (6,607) 


tnii'MMfiAL 


1 K«LLL,LLU) 

CALL  LINES  ( 3»NLINE) . RETURNS (325) 

32S  WRITE  (6,609) 

_ WRITE  (6,615)  (X.ALT(X) .CL(K).N3L(K).CL0(K).MCL0(K)i 
1 HHCL (K) ,CLN03(K) ,HCLN03(K) ,OCL< ( K) , K>LLL, LLU) 

CALL  LINES  ( 7 »NLINEI , RET  URNS ( 330 ) 

330  WRITE  (6.616) 

WRITE  (6,61SI  (KfALTIK), (HHH(J,<),Jal,9),K>LLL,LLU) 

WRITE  (6,716) 

WRITE  (6,71S)  (TY(J) , J«l,9) 

CALL  LINES  (SiNLINE) .RErURNSI33SI 


OISSSO 
018660 
018670 
018S6Q 
018690 
018600 
018610 
010620 
,010630 
010660 
018660 
018660 
010670 
018660 
018690 
018700 
010710 
018720 
010730 
018760 
018760 
010760 
018770 
, 01878  0 
018790 
OlOlOR 
010810 
018920 
018)30 
018960 
010860 
010960 
01897  0 
010)80 
018990 
Q10900 
018910 
010920 
018930 
018960 
018960 
018960 
018970 
018980 
018990 
019000 
019010 
-JUIQEO 
019030 
019060 
019060 
019060 
019070 
tll^QOQ 
019090 
019100 
019110 
019120 
019130 
JlllAO . 
019160 
019160 
019170 
019180 
019190 
019200 


335  NRITE  (6*615) 

MRITE  (6,606)  (K,  >LT  (K)  , (PODOH(J.  K)  , J»1 . 7)  .CLCM^t  IO_iK»  LLLjLLU) 

CALL  LINES  (3»NLINE) •ftErURNS(360) 

3«t0  WRITE  (6,61$) 

NRlfE  (6,615)  (KiALKK),  (S000H(J,K),3«1,9),<>LLL,LLJ) 

call  I>RINT9  (I(1,X?,X3,XIi  ,)(5,X6,X7,X9,X11,6HNZ0  ,6NN3K  , 

1 6HFC11,  6HECl^,»HC>^3C,4rtCL)(  ,6MCCL6,6H  HZ  ) _ 

COHPUtE  ELliX  AT  SblTOH 

CALL  TRAP  (ICLl,rNEO,  l,ei) 

CALL  Trap  ((L?,FNOX,l,81) 

CALL  TRAP  (l(L3,ECH6,l.ai) 

CALL  TRAP  (XL4,FF11,1,S1) 

CALL  TRAP  (XL5,FF12, 1,81) 

CALL  TRAP  (XL6,FCH3C, 1,81) 

CALL  TRAP  (KLT,FCLX,1,81) 

CALL  TRAP  (XL9,FCCL4,  1,61)' 

CALL  TRAP  (KLll,FH2.1.ai) 

WRITE  (6,70)  FN20,FN0X,FCH4,FF11,FF12,FCH3C,FCLX,FC:L4,FH2 

00  TbT  LLL.LLU  — — 

5 = _ _ 

Z'k(J)  * X4(<)  • CDN(K) 

C5(J)  X5(K)  * COH(X) 

C6(J)  < X6(<)  * CON(K) 

C9(JL  » X9(<)  » COH(K)  

Ci(J)  = Xl(<)  • CDN(K) 

t16(  JL  * 03(J)/0N(J)  


C5(J)  X5(K)  * COH(X) 

C6(J)  < X6(<)  * CON(K) 

C9(JL  » X9(<)  » COH(K)  

Ci(J)  = Xl(<)  • CDN(K) 

Na(J)  X 03(J)/0W(J) 

100  CONTINUE 

CALL  PAGE 

HRIIE  (6,611) 

WRITE  (6,601)  (KtALI  (K)  tNaO:)  ,C4  (i<)  ,C5(K)  ,C6  (K)  ,C9(<)  , 

1 CLX(K) ,KaLLL,LLU) 

CALL  PAGE 

WRITE  (6,617) 

WRITE  (6,613)  (X,ALr(X).  Cl (K) , WQX (Kl .CM6 (K) . K»LLL. . -Ul 

return 

7 0 f OR  N A T~  < I HO , 3 X , »Tn2  b = • , 1 PE  1 3 . 5,  i,  X , • F'nOX  E 13.5 ,6X, 

=*iEl  3.5j4X,*FFi|  «=  * , E 13.  5 ,»X  , »FF  12  i»,E13.5// 

2 4X,*FCH3C  =*,E13.5,4X,*FCLX  =•,  E 1 3. 5 ,4 X , •FJ CL4  ««,E1S.5,. 

3 4X.»FM2  s».E13.5)  


601  FOIHAT  (1H0,5K,«LAST  iteration  I*,!! 


019710 
) 019720 

019730 
019740 
019750 

019760. 

, 01 9? 70 

019700 
019790 
019300 
019310 
019320 
019330 
019340 
019350 
019360 
019370 

Ji93S  0 

019390 

019400 

019410 

019420 

019430 

019^4.0 

019450 
019460 
019470 
0194SO 
019490 
__  01950  0_ 

019510 
019520 
019530 
019540 
019550 
.019560 
019570 
01959  0 
019590 
019600 
019510 

PJL26I  0 _ 


//  6X,*ALT*,6X,*CJ3?*,  7X, 019630 


1 *0  303*,  6X,»CJCF2»,  6X. »CJCF3»,  6X.»C J0  31»,6X.»PRE»J3» ,5X, 

2 •063INT*,5X,>6NINT*,6X,«PRE^bH»/7) 

60  2 FORHAT  ( IH  .0RF9.0.  1P09E11.3) 

603  FORMAT  ( lH0,5X,»LASr  ITERATION  **,I3  // 

A 6X,»ALr».5X.»CJCL03».5X.»CJN20». 

1 6(,»CJHN03*,5X,»CJN202*, 5X,*CJN205*,5X,*CJ:CL4*,4K,»C JCH3CL*//) 

604  FORMAT  ( IM  ,0PF9.0«  1P07E11.3) 


019640 
019650 
01966  0 
019670 
_ai9.5J0 
019690 
019700 


605  FORMAT  ( IHO, 2X, VK*, 7X,*ALT*  , 9X, •M»,12X ,*ON* , 12X, •W32* ,1 IX, •H202* , 0 1 971 0 


1 ltX,*0»,13X,»03»,10X.»031NT*.9X.»0(»»0)»/)  __  _ 

606  FORHAT  (IN  , 13, OPFll.O, tPaE14.4) 

607  FORMAT  (lH0.2X,»K».7X.»ALT»t  9X.  »NO»,  13X,*N02*  ,12X,  »>(NQ3» 


1 *W03*,12X,»N205«,10X,»  NOX*/) 

60a  FORMAT  (IH  , t3.0PF11.0, 1P6E15.4) 

609  FORMAt  UHO,  IX,*I(*,7X,*  ALT*,15X,*CL*,  23X,*CL0*,  23X,*NCL*,  22X, 

1 *04X03*, 15X,»0CLX*7) 

610  FORMAT  (IN  , I3,0PFtl.0,lP9Et5.4) 

611  FORHAT  (lH0.2X,*K*,7X.*ALT*.aX.»NR  03*. 11X,» FCll*. tl X. »FCt7» . IPX . 


1 *0X301* ,11X,»CCL4*,11X,*CLX*/) 

612  FORHAT  ( IHO,  2X,*)(*,7X,»  ALT*  , 9X,  »N20*  ,12X ,»<OX»,  12X,  »C  H4»/) 

613  FORHAT  (IN  ,13,  OPFll.O, 1P3E15. 4) 

614  FORHAT  (tH0,lK,*K»,7X,*ALT*.6X.»H  ♦ 03»,7X,»0H  ♦ 03»,5X, _ 

1 *M02  » 03*,6X,*H02  ♦ 0*,6X,*0H  ♦ 0»,rX,*N02  ♦ 0*  ,6X,*CL0t'*'6*, 

2 6X,*0  ♦ 03*.  7X,*02  ♦ MO*/) 


019720 

019730 

019740 


019750 

019760 

019770 

0197B0 

019790 

0L9900 


019110 
019920 
019930 
019940 
019150 
01 9460 


615  FO^HAT  (IM  «I2t 0PFll.0,tP9E13.6) 

616  FORMAT  (lH0.?<.»K*«yX.*ALT».6X.»H2O  ♦ NV».6<.*H20  » 31D»..SK. 

1 ’OMA  * 010»(5X««HN03  ♦ Mrf*,5X,*C0  ♦ QM*»7X,»N0  ♦ t«92»«5X, 

2 »JM202»M202»i5X.»Cl  ♦ CH»*/» 

617  F09NAT  (IH  « I3« OPFll.O* 1P7E19.AI 

6ia  FORMAT  (1H0.2K.*K».7K.»ALT*.SX.»H202  » 0M».»X.»H02  ♦ QM»..SX. 

1 •HCL  ♦ OH*,5K,*CMA  ♦ 0H*,5X»*0»4  ♦ (»02*,5X,*OH  ♦ HN3S«»fX, 

2 •OH  ♦.0M*j5X,*H  ♦ H02*,5X.»CL  ♦ H02»7> 

71A  FORMAT  JIMO,*  iNTEGRATED  LOSS  F3R  020NE*/) 

715  FORMAT  (IH  .13X.lPaE13.A) 

1601  FORMAT  (1N0,5«,»LAST  ITERATION  ♦ !•  //  5X ,*ALT*t 6X (•C J02* , 7X, 

I »:J03*.  6X.*CJCF2*.  6X.*CJCF3*.6X.»CJB31*.5X.»PREIf03>.5X. 

2 •003INT*»5X,»0NINT«,6X.*PREV0M»//1 

1603  FORMAT  ClH0.5X.*LASr  ITERATION  » l»/7  _ _ 

A 6X,*ALr*(5X,»CJCL03»,5K,*CJN20», 

1 6X  ,»C>IMN03».5X.»CJH202>.5X.»CJM20S».5X.*CJ:CLA».»X.»CJCM32L»//1 


SUBROUTINE  TRAP  (XX,XXX,NltN2) 

DliEMSION  XXtSl)  _ _ 

XXX  « (XX  (Nil  • XX(H2n».5 

Nl»l  = Ml  ♦ 1 

R2M1  « M2  - 1 


019970 
01999  0 
019990 
019900 
019910 
019920 
019930 
0199A0 
019950 
019960 
019970 
IL19i}0 
019990 
020000 
020010 
020020 
020030 
0200AJD 
020050 
020060 
020070 
020090 
020090 


10  XXX  « XXX  • XX(I) 

- XXX  X XXX*1.QE5 

RETURN 

EN3_ 

SUBROUTINE  PRINT9  ( X 1. X2, X3,X4, X5 , X6f X7 , X0»X9 *H01 t NOE* HD O.HOA 

I HQ6.HD7.HDa.lPli 

DIMENSION  Xl(ll) tX2(Bl) I X3(ai) .X%(ai) f X5(81)  t X6(01) ,X7(at>,xe 

1 X9(0H  _ __  _ 

COMMON  /N00EL7ALT(4H ,TENP(4i) ,)N(41) ,010(41) ,0123(411 

60  0 format  (lH0.6X.»ALr».2X.9(6X.A4.3X)/) 

601  FORMAT  (1X,0PF11.D,1P9E13.4I 


CALL  PAGE  

MRITE  (6,603) 

WRITE  (6.600)  MDl.H02.H03.HD4.Ha5.H06.HD7.HD8.H09 
00  60  I ■ 1,41 

I WRITE  (6.601)  ALT(I1.X1(2*I-1).X2(2>I-1).X3(2*I-1), 

1 X5( 2*1-1)  ,X6(2*I-1) ,X7 (2«I-1),X6(2»I-1) ,X9(2*I-1) 

RETURN 

END 

SUBROUTINE  INPUT(KEYS.N. IC.IFORMtTITLE.K) .Ri TURNS CAI 


INTEGER  KEY3(N),riTLE(13),KEVH(;) ,KEV (3 ) , SLA  NX 

OAT  A KErw/4HPARA.4HC0MM.4HC0MP.4HEN0J.4H999i/.B 

X NAHE/5HIMPJT/ 

1 0 REA6('5V'mr)TEY,  1 C,  IFORN,  TITLE,  JF 

5 010  F0RMAT(3A4.I3.I3.2X.12A4.2A2) 

IF(EOF(5))800,15 

15  IF(IC)20,49.22 

?6  ic*-ic 

REWIND  IC 
22  CALl  page 

CALL  L1NES(4) .RETURNS(2S) 

25  WRITE (6,6025) IC, TITLE 

6 025  FOR  MAT (/T21.» TAPE*. 12, T31. •LABE. «*,12A4.A2/7) 

IF ( JF. ME. BLANK) CALL  INE( IC, .TRUE. ) 

REAO(IC,5Q10) KEY. K.IFORM. TITLE. JF 

IF(EOF(IC))800,50 
49  IC*5 


020110 
_ 020120 
020130 
020140 
.HDS, 020150 

02016J 

(01) ,020170 
020190 
020190 
020200 
020210 

Q20220 

020730 

020740 

020250 

020260 

020270 

4 0 - - 

020290 

020300 

020310 

020320 

020330 

aimi- 

020350 

020360 

020370 

020390 

020390 

020400 

020410 

020420 

020430 

020440 

020450 

020460 

020470 

020490 

020490 

070500 

020510 

070570 


I I I OtJii  I j I <>C>C)C1 


so  00  60  K«1|S 

IF(KET<l).Ea.<EYmK)  )G0  TO  (100,20  0,10.600.10)  ,JC 
60  CONflNUE 

00  80  K>ttN 

IF(KEV(ll.EQ.<EVS(KnG0  TO  90 

80  CONTtWIE 

CALL  ERRX(00,NAHEI 

90  lE(IC.EQ.S) call  PAGE  

NRITE(6,6  090)  <(ET,rirLE«IC 
6090  FORHATI/T?,3A6,T21,13A6» Ag,T81,»tUNIT 
CALL  LiNES(3),RETURNS(9S) 

9S  RETURN 

100  CALL  INPARN 

GO  TO  10  _ 

?00  CALL  INE(IC,.tRUE.> 

GO  TO  10  _ _ __  

800  CALL  ERRHCeOOfMAHEi  ,RErURNS(6dO) 

400  RETURN  A 

ENO 

SUBROUTINE  PAGE 


P^ NT S J» AGE  HEADER  AND  KEEPS  TRACK  OF  LINE  COUNT 
VERSION  1.0  LEVEL  711122 


INTEGER  ICOOE,IRUN,NPASE 

REAL_LtLLmi 

CONNON  /HEAD/  TITLE* ICOOE , VERSt L EVELy OAT*  IRUNyNPAGE* 9LOG 
COMNON/LINUi/LlNE 


LINE«4 

NPAGE=NPAGE»1 

WRITE  (6.2030>  ICOOE . IRUN, TITLE.  VERS. LEVEL .OAT.  NPASi 

2030  FORHAT(*l*,I3,I6,5X,6A8,  • VERSION  ♦,F5.1,*  ( * ,16.  •!  » , lllC, 

_ X_  A10«10X.»PAGE  »,I3/1X.127(»»»)) 

RETURN 

ENO 

SUBROUTINE  LI NES ( N) , RETURNS (A) 


VERSION  1.0  LEVEL  760921 


REAL  TITLE(6) 

INTEGER  ICOOE, IRUN.NPAGE,LCT 

CONHON  /HEAO/  T ITLE , ICOOE , VERS, LE VEL, DATE , IRUN, NP AGE,  NLOG 

COINON/LINUH/wINE  

DATA  LCT/617 


lTme=line*n 

IF( LINE.lt. uCT>  RETURN 

LINE=N^4 

_J0  NPAGE«NPAGE»1 

WRITE (6, 2030)  ICODE, IRUN, TITLE, VERS, LEVEL, DATE, NPAG- 
2 03  0 FORNAT(*t».I3.I6.SX.6A8.*  VERSION  ».FS.l.*  ( » ,16, »>  » , IIX. 

X A10,10X,*PAGE  •»I3/lX,127C*-*>t 

RETURN  A 

ENO 

SUBROUTINE  INE  tIC, PRINT) 


VERSION  I _ LEVEL  __72J 602 

READS  ANO  PRINTS  COMNENTS  CAROS 


REAL  NAME 

logical  print 

INTEGER  IF0RN,IF(3) ,COH(13) , BLANK 

DATA  IF71H  ,lH0,tHl/,NANE73NINE/,BLAWK/lH  /_ 

10  REAOdC.SOini  IFORN.COM. JF 


020530 

020540 

020550 

020560 

020570 

_ 020580  

020590 

020600 

020610 

020620 

020630 

020640 

020650 

020660 

020670 

020680 

020690 

020700 

020710 

020720 

••••020730 

020740 

020750  1 

”?rfl2Q7iji 

020770  ' 

020780 

020790 

020800 

020J10 

02.03  ? 0 

020830 

020840 

020850 

020860 

020870 

-020800 

020890 

••••020900 

020910 

••••020920 

020930 

_ 020940  

0269 50 
020960 
020970 

02098  0 

020990 

_ 021000 

021010 

021020 

021030 

021040 

021050 

12116  Q 

021070 

021080 

••••021190 

0 2110  0 i 

021110 

•**•021120  

021130 

021140 

021150 

021160 

021170  1 

021140 
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5010  FORHOTa<>X,»l,5X»12A%»«2»A2)  021190 

IF< .NOT. PRINT!  60  fO  50 021200 

bo  20  I»1,S  021210 

IFtlFORN.EO.lFCin  GO  TO  (30.3I.M)tI _ 021220 

20  CONTINUE  - - 

CALI  ERRX(20.NANE) 0 21?f*l 

30  CALL  LXNES(I)»RETURNS(32}  021250 

32  WRITE  C6,6032>  IFTH.COH 021260 

6032  F0)NAT(Al»r21»12A6,A2)  * 021220 

GO  TO  50 02128  0 

HO  CA. L PAGE  021290 


111 

60  TO  30 

50  IF(  JF.NE.BLANO  60  TO  10 
RETURN 

EN3 

SUBROUTINE  3 AY 


521300. 

021310 

021320 

021330 

0213H0 

021350 


: VERSION  1.0  LEVEL  260921  021320 

2 » «»  0 2138  0 

REAL  TITLE(5)  021390 

CONNON  /HEAP/  TITLE. ICODE. VERS. .EVEL.DAT. IKJN.NPAGE. NLOG  _ 021HO0 

; 021H10 

OAT  « OATE(3) _021i»25 

return  021H30 

IN3 _ 021H40 

SUBROUTINE  ERRX(N,NANE)  021450 

C j g 

C VERSION  2 LEVEL  220421  021420 

g »»»»»»•»»»»»»»»»»»»»»»»»»»»♦»»»»»»♦»»»»»»»»»»»♦»»»»»»»  »»»»»»»W»»agll, 8 0 

INTEGER  N 021490 

REAL  NAHE  02150  0 

c ,;i- 021510 

WRITE(G.6000)  N.NANE _02152n 

6000  FORNAT<*OEXECJTION  TERNINATEO  OJE  TO  ERROR  VO.  •»I4»«  IN  •,A0)  ~ 021530 

iTJF 021545 

END  021550 

SUBROUTINE  ERRNIN.NANE) 02156  0 

: . VERSION  1.0  LEVEL  260921 _ 0215JO 

tKIISEP  ?« 121_5J Q_ 

REAL  NANE  021610 

- ..  --021620 

WRITE (6»6100)  NfNANE  021630 

6100  PORNATC»OERROR  NO.  ».I4.*  IN  o.AOF) 0 2164  0 

RETURN  021650 

Elia - JL21a60_ 

SUBROUTINE  ISCATT  021620 

S - -'••••  .tA«. 021680 

C 021690 

.C___ CHLORINE  NODEL  STUDY  PR06RAN 0 2170  0 

C ““  021210 

JJ _Q212M_ 

C SU8ROUTIN-  ISCATT  CONPUTES  AEROSOL  AND  NOlECULAR  iXTINCTION  021230 

C COEFF1C1EVT5 021740 

C lRAYfJ)>  RAYLEIGH  SCATTERING  COEFFICIENT  021250 

C QAE(J)«  AEROSOL  EXTINCTION  CQ-FFICIENT 0 2176  0 

C 3AA(J)*  AEROSOL  A8S0RBTI0N  COEFFICINT  021220 

-C Jil2.t5_- 

C SITE  DISTRIBUTION  PARANETER  ISIZE>  1 (RURAL)  FRON  SELBY  ET  AL  021290 

c 2 iNARiriHEt .Uilf)  021800 

C 3 (URBAN)  021810 

C._.. 4 (TROPOSPHERE)  021820 

C 9 (SPECIAL)  021830 

C TO  INPUT  SPECIAL  HOOEL  OTNENSION  ALAN(A)  AND  0F(«).aA(5i)  021840 
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C •<«  * OF  MtVELFNGTH  INTERVALS  AEROSOL  DATA  DIGITIEe’} 

C •LfH*  ARRAY  OF  WAVELENGTH  VALUES  CORRESPONDING  TO  OIGITIE AT  ION 


CON NON  /SCA»AR/QRAY<100> , QAE( tOB) , QAA C 100 > 

CONNON  /SOlCON/HL (100) (FL  (1001,302(100)  ,003(100) 

CONNON  /PARN/  ISNIT, TSTEFtTSTOR, TLOOP.ITPRNT, ISI2E, ISCATT 
OINENSION  ALAN(S) ,aE(S,6) ,QA(5,S) 

OAT  A ALAH/.200,.2SO,.300,.400,.»ea,.SSO,.G9»,.060F 
DATA  IL,'IU,N/I,99,r/ 

C 5 PECIFT AEROSOL  NOOEL 

60  TO  (1.2.3,A,5)ISrEE 

C R'JRAL 

1 OEC  1, 1)*.3B223 _ _ 

aE(  1,2)  = .329>9 

OE(l,  3)g.2eSitO 

0E(l,i»)3.22026 

aE(l.S)«. 17909 

a'E(l,6)«. 15800 

3E(1, y)». 12064 

OE(i, 8)3.09151 

OA(l, 1)3. 0791,5 

aA({,  2)=. 03661 

QA( 1, 3)3.03110 

0A( 1,6)3.01317 

3A(  1,5)3.01114 

OA( 1,6)3.01095 

QA<  1,  7)3.00968  

38(1,8)3.01058 

GO  TO  20 

: NARITINE 

2 3E( 2, 1)3.308  32 

3E(2,2)3. 19518 

aE( 2,3)3.18679 

aE(2, 6)3. 17032 

aE( 2,5)3.16213 

aE(2, 6)3^15800 

aE(2«  7)3. 15001 

aE(2, 8)3. 16612 

aA(  2,  1)3.02056 

0A(2, 2)3.00866 

08(2,3)3.00662 

aA( 2,6) 3.00263 

3A( 2,5)3.00193 

aA(2, 6)3.00106 

_ aA(2. 7)3. 00155 

30(2,8)3.00171 

GO  TO  20 

: JRBAN 

3 _ QE(3,1)3. 31030 

OE(3, 2)3. 28616 

_ aE(3, 3)3.25805 

00(3,6)3.20867 

aE(3, 5)3. 17631 

0E(3, 6)3. 15800 

00(3,  7)3,12601 

00(3,6)3.10071 

08(3,1)3.10692 

08(  3,2)3.08669 

aA(  3,  3)3.07571 

06(3,6)3.06376 

08(3,5)3.05676 

08(  3,6)3.05282 

__  08(3,7)3.06528 

08(3,8)3.06022 
GO  TO  20 


021850 
021960 
021970 
021890 
021890 
021900 
021910 
021970 
021930 
021960 
021950 
021960 
021970 
021980 
021990 
022000 
022010 
022020 
022030 
022060 
022050 
022060 
022070 
02208  0 
022090 
022100 
022110 
022120 
022130 
022160 
022150 
022160 
022170 
022190 
022190 
022200 
022210 
022220 
022230 
022260 
022250 
022260 
022270 
02229  0 
022290 
022300 
02231 0 
022320 
022330 
022360 
022350 
022360 
022370 
022380 
022390 
022600 
022610 
022620 
022630 
022660 
022650 
022660 
022670 
02268  0 
022690 
022500 
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|o  olo  Clio  olo  old  o'o  I M V M ; |m  M Cl  ^ Cl 


FROPOSHER? 
QE(4il)«.»0glE 
aE(  %*  2)*.  sisos 

aE(<tt  ii«»296r» 
aEI4»4)*.22585 
aE(i»,s)«.isiar 


aE(>>(6): 

aE(4t7)) 

aEi<>t8»- 

aAOit  !>’ 
aA(A»  2) 
JJAliulij 


ISBOO 

.11722 


>08537 

l081>2 


i-.a3%51 

.aiF^F 

aAI4»4)x. 00971 
aA<4,5)a. 00772 


aA(4» 6)3.00745 
aA(4. 7)3.00619 
aA(4»8)3. 00683 
SO  TO  20 


CONTINUE 

I NPUT  SPECIAL  NODEL 
DO  40  J3IL/IU 
NLN1C3WL (J)/1.0E4 


DRAYt  J)3(9.S07E-2Q)»  ( 1.0E4/WLN1:)  0117 

aRAY(J)»aRAY(J)*l.E-5 


IP(*ILMlC.Lr.0.2)GO  TO  35 
.90  _3a.  IC«1.N 

ICPl3K*l 

.lF(NWHlC.GE.Al.AM(l().ANO.WtHlC.LE.ALAWIKPl));0  JO  3L. 

0 CONTINUE 

1  


QAE (J)3(QE(ISIZEtKPl)-aE(ISIZE,<))*XD/( ALAH(KPl)-ALANIK) )» 
1 Q; IISIZE.K) 


0AE(J)=aAE(J) *l.E-5 


022310 
022520 
022530 
022540 
022550 
022560 
022570 
022580 
022590 
022600 
022610 
022620 
022630 
022640 
022650 
022660 
022670 
0226} 0 
022690 
022700 
02271 0 
022720 
022730 
022740 
022750 
022760 
022770 
02278  0 
022790 
.0  228  0.0. 
022S10 
022820 
022830 


1 QA(ISIZE.K) 

022850 

DAA (J)>QAA(J)»l.E-5 

022860 

5 

GO  TO  40 

QAE (J)«0.0 

022870 
02288  n 

QAA  (J)30.0 

022890 

0 

CONTINUE 

022900 

01 

NRITE(6t lot) ISIZE 

FORMAT (*  AEROSOL  MODEL  3»,I4) 

022910 

022920 

HRITE(6yl05l 

022930 

05 

F0RMAT(3X.*J».11X.»ML ( J) • .6X.*QIAY (J)*.9X.«aAE(J)» 

.9X.»QAA(J)*) 

022940 

00  50  J3IL,IU 

022950 

WRITE (6. 102) J.WL ( Jl.QRAY (U) .QAE(  J) .lAAl  J) 

022960 

02 

F0RMAT(I4,4E15.4) 

022970 

g 

CONTINUE 

DZZiSO 

RETURN 

022990 

EN) 

023000 

• • • « 

SUBROUTINE  OMEGA (NT. IL, lU .GNU) 

023010 

..023020 

SUBROUTINE  ONEGA  COMPUTES  SINGLE  SCATTERING  ALBEDO 
OPTICAL  DEPTH  AS  A FUNCTION  OF  ALTITUDE 

•ROFILE  AND 

023030 

023040 

SINGLE  SCATTERING  ALBEDO  PROFILE  AS  A FUNCTION  OF 
FOR  INPUT  TO  VIM 

TAJ  COMPUTED 

023050 

023060 

HEAN  lyENSlTY  RETURNED  AS  A FUNCTION  OF  TAJ  REINTEQPOLATED 
FOR  ALtltuOE  LEVELS 

RETURN  TO  CONPJ 


CONNON  /SCARAR/QRAVllOO)  yOAEdOO)  •QAA(IOO) 

COMHOH  /SOLCON/WL(100)tFt(100). 3021180)  .003(108) 
COMMON  7INt0EN/003INT(41 )tONINr(41)yOAINT(41) 


CONNON  7NOOEL7ALT  (41)  .TEHP(41)  .0)1(41)  .010(41)  .OA23(4t) 


023070 
02308  0 
023090 
J23100 
023110 
.023120 
0231 30 
023140 
023150 
0231 60 
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COHNON  /SPE:IE/H(*>1I  ,0H(<»  1)  ,H02I%1}»H202(%1I  * 03(%  II  , }( <»t  )i,^0  ( 41)  , 023170 

1 N0?(41)  ,HMa3(41),MOX(41)  .C0(41l  t0?(41)  .CH4(41),HgO(4HtH2C41),  023180 

2 CL(41)  •CL0<41)tHa(41l  (CLX(4 1)  • OCLXHl  I »N03  ( 41)  * N23S(  41)  0 2313  0 

3 CLN03<41)  023200 

CONHON  /VRP/tlUZ(41,100)  yOHEC«ZI41ttOO)  tTAU(41)»0NES«r  (411  023210 

COMHON/SC*7r4DIMT(100),FI41.100) iFOVC 41 , 100) , FLUX (41 ) _ _ 0 23?20_ 

COHMON  /PORA7  U0»N,N1,N2 »NN,NNPl »REF  023230 

DIHENSION  IK(IOO)  ,INN<10  0),II(41) 023240 

023250 

CORPJTE  OPTIOL  DEPTH  »ND  ALBEDO  AS  A FUNCTION  OF 0 232  60 

MXi/ELEMGTH  FOR  E4CH  LEOEL  023220 

PO2=0«21  023280 


U0*GNU  023290 

DO  20  I = ltNT 0 23300 

DO  10  JsILtlU  - - - 023310 

TADZ<I,J)=a33<J)»D03INT(I)»Q02<J)*P02»DMINTlI)»QRW(J)  »DmHT<I)  0 2332  0 
1 /DN(i)«QAE(J)»D«INr(I)20A23(l)  023330 

5AHSCA^QRAY( J)»DNCI)  /PHI  1 ) » (QAEl J) -DA A ( J ) ) *D A23 ( I ) 2D A2 31 1 ) 0233it0 

GAMEXTBQAE(J)»OA23II)/DA23(l)4aRAV(J)»0N(I)/0H(l)^033( J)«  023350  ' 

1 03(I)»Q02(J)»P02*DH(I) 023360 

0HEGAZa,J)=5AMSCA2GAHEXT  - - - 023320 

IF( I.NE.NTl  30  TO  10 023380 

TZsTAUZ(l,J)  ‘ 023390 

N = rZ/.5»1.6 023400 


IF(N.Lr.3)Ns3  023410 

rF(N.GT.21)^  = 21 _ 023420 

IN(J)«N  023430 

NN=  (N-l)*2 _ 023440 

IFcfZ.LE.l.) NR«ia  023450 

IF(TZ.CT.1.,AI>I0.TZ.LE.3.  )NN»(N-1)  *5 023460  _ 

IF(rz.Gr.3..A90.TZ.LE.5. )NNs(N-l)»3  023420 

rNN(J)=NN 02348  0 

TAUINTCJ)=TZ/MM  ' 023490 

. CONTINUE 023500 

CONTINUE  023510 

C01PUTE  SINGLE  SCATTERING  ALBEDO  YS  TAU  AT  EQUAL  TAJ  INTFftXALS 0_2352.0_ 

00  50  J=IL»IU  023530 

NN«INN1J) 0 2 3540 

NNPi=NN*l  023550 

IK  1)  »1 _ _ 0 23560 

II(NNP1)*NT  023520 

TAU(1)«TAUZ(1. J)  023590 


NsINl  J) 

N1«N-1 

N2=N-2 

DO  85  I«l,Nr 

IF(ONE6AZ(I»J).Gr..05)GO  TO  00 
CONTINUE 


023220 

023290 

023290 

023800 

023810 

023820 


L 
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00  S&  Ial,Nr 
FR*  Q. 


rF(-rAUZ(itJIF6KU.Lr.-F0. )GO  TO  6F 
FR«  GHU»Z.*REF»E?<T»UZ(t.  J)-TAUZCIi  J>)  »EXP(-r*UZt  1 1 JM5  NO) 
^ SZ  Fli,J)«FR 

IFt-fAUZ  (I.J) FGMU.Lr.-Z0.)GO  TO  S6 


l«6 

BS 


FfI,J)sEXP<-TAUZ(I,J)/GNU)«FR 
CONTINUE 
GO  TO  50 
CALL  VIN 
CONVERT 


FLUX  fRON 
F(1.J)»FLUX(1> 


TAU  TO  Z LEVELS  FOR  CONPJ 


FCNT, J»*FLUX(NNP1> 
DO  TO  K«2.NN 
IK.=II(K» 

IKJ=II (K«l) 


IF(IKL.EQ.IXU»GO  TO  70 
IKU^IKU-l 


00  60  IsIKLiIXU 

KP1*X*1_  

TAUEXP=T  AU(<) -T  AUZd  , J)  ' 

TAUEXP»TAUEXP7TAUINT( J>  

Fd,  j|  = (FLUX(KPll**TAO£XP)*  (FLUXiKI**  (1  .-TAJ EXP) ) 
CONTINUE ^ 


aO 

70 

SO 


CONTINUE 
CONTINUE 
RETURN 
EN3  _ 

SUaROUtl NE 


VIN 


L£iS^JL&^^&JLJi.Sii&2L2.2JS.iSJLSJL.S-SMSiJ-S-S«SLSJLLl.SAJ^.ftJLti^ 


VARIATIONAL  ITERATIVE  HETHOD  CALCULATES  ATNCSPHERIC  NULTTPLE 
SCATTERING  AJiO  SURFACE  REFLECTION  ELFECTS  HNICH  AFFEIT  PHOTO- 
OISSOCIATION  RATES 


INPUT  INFORMATION  INCLUDES  SURFACE  REFLECTION  COEFFICIENT, 

SINGLE  SCATTERING  ALBEDO  AND  OPIICAL  DEPTH  PROFILES 

resultant  Flux  adjustment  profile  returns  to  omega 

A oVpfE^  FROM  N.  X,  BURKE,  E.^.T.,INC.  1977 

• • »»«»»»»»»»»»»»».»».»»»»»»»»»».»»..»»»»»»».«».» »»»..» .u  < 

logical  lineon 

REAL  H.MIN.INT 

COMMON  /PARA/UO iNtNltN?, NN,NNP1,  REF 

C OMMON/SCA/TAJINT(100).Q(»1.100(  .FAVIM.tOO)  .FLUX <A1) 

COMMON  /VRP/TAUZCI»1,100>  ,OMEGAZ(iil,10  0)  ,TAU(A1)  ,OMEGAT  (AL) 
COMMON  /NATRIX7H(Z0.?1) 


COMMON  /NESN/ 
COMMON  /EFUN7 


T<Z1),G(101),H(Z1) 

E3T<21).E2T(101).;3rTI101I.E3ri(i01).EgrTfi:Ql) 


COMMON  /C0EFF7  A(20),AA(20) 
OIMENSION  SmOD.THlOl)  .SO (1011 


DIMENSION  SS2(101),F(101)  ,F0(101) •Fl(lOl) ,F2(10t) 
DIMENSION  GG(101).FF<21) .WNIini) 


DIMENSION  U(50),INT(5a),6A(101) 
DIMENSION  F3(lQl).EX(10t) 


4 

5 

6 
7 
9 

A1 


F0RNAT(/«1»,6X, •MATRIX  ELEMENTS, 
FORMAT!  4X. lPltEll.3) 


023S30 
023B40 
0?3)S0 
023360 
023S70 
0235 8 0_ 
023590 
023900 
023910 
023920 
023930 
023940 
0239S0 
023960 
023970 
023950 
023990 
_0  240_D_q_ 
024010 
024020 
024030 
024040 
0240 SO 
._0  2406  0 
0 240  7 0 
02405  0 
024090 
024100 
024110 
.0^12  0 
024130 
024140 
024150 
024160 
024170 
024150 
024190 
024200 
024210 
.024220 
024230 
.0  242  4 0_ 
b24>50 
024260 
024270 
024280 
024290 

024310 

024320 

024330 

024340 

024350 

024360 


NL> 


>14) 


FORMAT(7/,9X,»TA*,SX,»A( J)*,10X,»AA(J)*) 

FORMAT!  6X,E9.3.2E16.6) 

FORMAT!  • SINGULAR  MATRIX*) 

FORMAr<*l*.9X.*ri».9X.*lST  irERAriQM*,5X,*01E6A*) 


024370 

024350 

024390 

024400 

024410 

024420 


12  FORMAT!  6X,E9.3,5X,E14.6,5X,E14.6)  024430 

13  F0RMAT1//7.6X. •ITERATION*  • .15.7. 9X. »Tl» .9X.  •NEM  ITERA*. 9X.*L AST  024440 

1ITERA*,9X,*3EL*)  024450 

14  FORMAT!  6K,E9.3.3!5X.E14.6) ) 024460 

16  FORMAT!//, 5X,»NOT  CONVERGE*)  024470 

17  F0RMAT!4X,F7.3.5!5X.E14.6I)  024450 
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18  rORM8T(///,rx,*r*,10K,*F*,19X,*- 0*,18I{#*F1*,18X,*F?»,18K,,*F3*» 


18 

c 

c 

FORMAT(///,rx,*r*,10X,*F*,19X,*- 0*,18X,*F1*,18X,* 

define  Tt  AND  MH  SUCH  THAT  K«1  SORRESPONOS  TO  TOP 
ONNPt  IS  BOTTOM  OF  ATMOSPHERE 

F2», 

Tr 

18X,.*F3*» 

ATMOfS^HERE, 

024430 

024500 

024510 

024520 

00  111  K«1,NNP1 

024530 

024540 

NK=HNP1-K*1 

TKKMTAUINX) 

024550 

024560 

111 

MH(KI*0MEGAT(VK) 

00  45  KsltNiPl 

024520 

0245B0 

E2T<K»*E2<T1(<»» 

E3ri(K)sE3(Tl(<n 

024590 

024600 

E2TT(IOsE2(Tl(MMPl»-ri<K)) 

E3TT(K)3E3(T1(NNP1)  -TICK) ) 

024610 

024620 

45 

EX(KlsEXP(>Tl(<)/U0) 

CONTINUE 

024630 

024640 

OTsTl<NNPl)/Ml 

K = 0 

024650 

024660 

f* 

L=NNVNl^.l 

024620 

024680 

C 

C 

COMPUTE  T AND  N PROFILES 

024690 

024200 

T('<)=0T*N1 

E3T  (N)«E3(T(N)) 

024210 

_024220 

00  10  J^lfNl 

T{J)=0T*<J-1) 

024230 

024240 

E3r (J>=E3(Tt Jl ) 
sui^o. 

024750 

024260 

00  15  KKsltL. 

<*<♦1 

024220 

024750 

15 

SUHsSUN«HM(X) 

H( J)»SUH/L 

024790 

024800 

10 

CONTINUE 

DO  46  K^l.NVPl 

02481 0 

024820 

46 

S0(KI  =.5*HH(<I*  (E2TT  (KI*U0*REF#.  51  'EXTO 

CONTINUE 

024830 

0_24?4]L 

CALL  RMATRI 

00  20  J=1,N1 

024850 

024860 

?0 

FF( Jl sM(J,N) 

CONTINUE 

024820 

024880 

IF  (LINEQN(N-1I 1 GO  TO  100 

DO  25  J^l.Nl 

024890 

024300 

TA  =<T(JI*T(J*1II*0.5 

024310 

024320 

C THIS  IS  r AVERAGE  FOR  EACH  LATER 

C 

024330 

024340 

A<Ji  =H(J,NI 

024350 

024360 

C this  is  SOLUTION  TO  MATRIX  EON 

024920 

024980 

4A 

AA(  JI«SQRT(H(J>)  »AU> 

024390 

025000 

C this  is  average  source  in  the  INTERVAL 

Z 

025010 

025020 

^5 

CONTINUE 

GO  TO  200 

025030 

025040 

100 

MRITETGf 9) 

GO  TO  400 

025050 

025060 

^00 

S2=0. 

DO  40  Jai.Nl 

025020 

025080 

JPl-J*t 

SS2(J)*AA(J)»(E3(T(N)-T(  JPin-E3(T(N)-T<Jin 

025090 

025100 

40 

S2aS2«SS2(J) 

CONTINUE 

025110 

025120 

00  30  KalyNNPt 

K«T 1(K) 

3« 

N h fi 

93 
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ERT-P-2994F 


AF6L-TR-77-0293 


O C 

• c 


SltKMSlKXI 

G C K)«SO(K)  ♦ .S»>«mK>»SlCKI  ♦.»»><>«  KIMgF»E2TTCK»*Sg*g. 

30  CONTINUE 

RESULT  oTlSf  IrFRiTrON 

II. 2 

300  OI'FjOi 

CALL  COH>(S5» 

00  35  K»1.NNP1 

6G(k)>6<K> 

G(K>.S0<K>».5»NW(K>»SlNT<KI».5»NW«K>»REF»E2ff «K>»S6»g. 
OEL^ABSt (GC(K)-G(K))/G(K)) 

: WRITE  <G,1»>  TH<ltG<IO.GG(K).DEL 

35  OIEF.OIFF^OEL 

IF  (DIFF  .LE.  .1)  GO  TO  »00 

IF  (II  .LT.  10.)  GO  TO  300 

400  CONTINUE 

T«EXP(-T<N)FUO) 

CALL  CONP(SS) 

00  50  K«1.NNP1 

F0(K)sEX(KI 

F1(K»«2.*S1NT(K» 

X=2.*PEF*E2TT(X) 

F2iKli*?5fi*ii 

F3<  K)  *X*U0*Y 

F(K)»F0<K)»FHK)  »F2CX)»F3{K) 

50  CONTINUE 

aa.J».  R’likMPl 

NK.NNPt>K»l 

133  FLJX<K)«F<N<) 

END 

SUBROUTINE  RNATRI 

REAL  H 

CONNON  /HATRIX/H(20.21) 

CONNON  /PARA/U0»NfNl»N2»NNyNNPli  REF 

CONNON  /MESN/  T ( 21> t G (10 11 , W(21> 

CONNON  /EFUN/  E3T <21> yE2T ( 101) y E 3TT ( 101) » EST 1 f 101 ) » • 2T 

DINENSION  0H(21) 

OINENSION  TJ(21) 

DO  10  J«1.N1 

JP1=J*1 

DH<J)aT(JPl)-T(J) 

N(JyJ).ON(J)-M(J)*(ON(J)«E3(OH(J))-.5) 

LO  CONTINUE 

IF  (N  .EQ.  3)  GO  TO  100 

00  eO  I»1.N2 

IPl=I*t 

90^  20  J»1P1«N1 

3P1«J»1 

ii? E3<T(J)-r(I))-E3(T(J)-T<IPL))-E3(r(JPl)-TCI)>»;S( 

IT(IPl)) 

N».J)»y5*SaRT(MCll*mj|>*EE 

20  N(JyI)«M(Iy  J) 

GO  TO  200 

100  N(ly2)s.5*S3RT (M( 1)*NI 2) ) • fE3(0HI 1) ) *£3 (OH(2)  ) *£3 (DNIl 

N)2,l)«H(ly2) 

200  00  30  J«lyNl 
TUU)-T(  J) 


TU(  J*1)«T(JH) 

30  N<J,N)«  .25»U0»(EXP<-TU( J)/U0)-EXP(-Tm J»i)YU01)»CM(J| 

return 

EN3 


LOGICAL  FUNCTION  LINEQNIN) 
GAUSSIAN  ELININATION  NETNOO  IS  USED 


r (Loi) 


)»0H(2)  )• 


025150 

025160 

0251F0 

025180 

025190 

025200 

025210 

025220 

025230 

025260 

025250 

025260 

025220 

025280 

025290 

025300 

025310 

025320 

025330 

025340 

025350 

025360 

025370 

flZSlUl 

025390 

025400 

025410 

025420 

025430 

025440 

025450 

025460 

025470 

025480 

025490 

025500 

025510 

025520 

025530 

025540 

025550 

025560_ 

025570 

025580 

025590 

025600 

025610 



025630 

025440 

025650 

025660 

025670 

025680 

025690 
025700 
.5) 025710 
025720 
025730 
025740 


025750 
__  025760 
025770 
025780 


025790 

025800 


r 


CONHON/HATRIX/«I20»21> 

IF  <N  .GT.  1)  GO  TO  10 

02$si n 

02$»?0 

IF  It  (1»  l).EO.O.r~Eb  TO  $00 
•(1.2I>A(1,2)/A(1,1) 

02$}30 

02$S40 

10 

GO  TO  420 

SUi>0. 

02$»$0 

0?$S60 

DO  20  I>t.N 

B2$t70 

00  20  J>t.N 

02$SBO 

20 

SUH>SUN»Afl5(A(I(  JT) 

02$S90 

r0LFR><SUNFFL0Ar(N)»»2)»l.E«ll 

02$)00 

Hl»N-l 

02$910 

IIP1«N41 

02$920 

DO  300  K>1»M1 

02$930 

TEiP«ABS(A(Kt<l> 

02$94a 

ITiiPaK 

02$9$n 

KPl«iC»l 

02$I60 

00  100  I*KP1,^ 

02$970 

IF(ABS(A(I.<»».LE.rENP»  GO  TO  100 

02$950 

TENP>ABS(A(I  •<!) 

02$990 

ITEHP«I 

026000 

too 

CONTINUE 

026010 

IF  (TEMP  .LE.  TOLER!  GO  TO  $00 

026020 

IF  (ITEMP  .EQ.  K)  GO  TO  200 

026030 

OO  110  I-K.SPl 

026040 

TEiP«AlK,I) 

0260$0 

A(<.I!>A(irENP.I> 

026060 

110 

A(ITENP»I}*rENP 

026070 

?00 

00  210  I>KPl,i« 

026080 

0 (IiK)>A  (IfK! /AtKfKI 

026090 

00  210  J«KP1.NP1 

026100 

210 

A(I  iJI«A(I,J)-A(I,KI»A(K«JI 

026110 

300 

CONTINUE 

026120 

IF  (ABSIA(N*N!)  .LE.  TOLER!  60  TO  $00 

026130 

A(NtPPl!*A(N. NPl! /A(N«N! 

026140 

DO  410  I^lfRl 

0261$0 

026160 

00  400  J«ltl 

026170 

L»'IP1-J 

026180 

400 

«(<»NP1) sA(R,NPl!-A(K»L) •ATLtNPlI 

026190 

410 

A(<>NP1!bA(<.NP1!/A(K.K! 

026>a0 

420 

LINEON*. FALSE. 

02621 0 

GO  TO  600 

026220 

$00 

LINEQN^.TRUE. 

026»30 

600 

RETURN 

026240 

ENO 

0262S0 

FUNCTION  E2(X! 

026260 

IF  (X  .LE.  1.0E*6I  GO  TO  1 

026270 

E2»EXP(-X!-X*E(X1 

026280 

RETURN 

026290 

1 

E2>1.  0 

026300 

RETURN 

02631 0 

ENO 

026320 

FUNCTION  E3(X! 

026330 

026340 

E3*  IEXP(>-X!-X*IEXPI-X»-X*EIX»ll*0.$ 

0263$0 

RETURN 

026360 

1 

E3*  .5 

026370 

RETURN 

026380 

ENO 

026390 

FUNCTION  E(X) 

026400 

IF  (X.GE.IQ.!  GO  TO  200 

02641 0 

IF  (K.6E.1.0!  GO  TO  100 

026420 

A0«-  .$7721$66 

026430 

Al>  .99999193 

026440 

A2>>  .249910$$ 

0264$0 

A3«  .0$$1996S 

nPN46n 

I 
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«4>>  .0097600% 
.00107057 

KlsX 

K2»  X»Xl 

K3iX*X* 

X%»X»X3 


X5>X»X% 

E » >0»01»X1» >?»X2»>3»X3»06*X6»4S»X9-»Lae<X> 
RETURN 

100  >fO.S733207401DO 

42910.059016973000 

*3.0. 634  760092500 


449  .267773734300 
5l»  9.573322345400 


829  25.632956140600 
9 3*  21.099650302700 
8493.950696922000 
X19X 


200 


X29X*X1 

X 39  X»X2 

X4*X»X3 

F9(X4»41*X3»42»X2»43»X1»44)/(X4»B1*X3»B2»X2»B3*X1»84> 
E=- •EXP<-X)/X 
RETURN 


4194.  03660 
»?!  1.15450 
8195. 03637 


026470 

026600 

026490 

026500 

026510 

026520 


026530 
026540 
026550 
026560 
026570 
0265^  IL.. 
026590 
026600 
026610 
026620 
026630 
026640 


026650 

026660 

026670 

0266SO 

026690 

Jli67!L(l. 

026710 

026720 

026730 


829  4.19160 . 026740 


Xl9X 

026750 

X2« X*X1 

026760 

Fs(X2»41*Xl»42l /(X2«B1*X1«B2> 

026770 

E9f*EXP(-X»/X 

0267SO 

RETURN 

026790 

EN3 

026900 

SUBROUTINE  CONPISGI 

026110 

CONNON  /NESH/  T ( 21) . G (10 1 ) . Hf 211 

026920 

SOHHON  /EFUR/  E3T ( 21) ,E 2T ( 1 01) , i 3TT ( 101) 

, £311(101), EETTltOl)  026930 

CONNON  7P4R4/U0.N.NI.N2.NN.NNP1.REF 

026940 

OliENSION  GN(lOl) 

026150 

SU1>0. 

026160 

00  10  K9l,NN 

026970 

XPl»X»l 

026990 

GH(K)96(K)«G(KP1) 

026390 

10 

SUN9SUN»GN(X)»(E3TT(KP1)«E3TT(K) ) 

026900 

SG9SUN*.5 

026910 

RETURN 

026920 

END 

026930 

FUNCTION  Sll(X) 

026940 

CONNON  /COEFF/  4(201,44(20) 

026950 

CONNON  /P4R4/J0.N.N1.N2.NN.NNP1.REF 

026960 

S1190. 

026970 

00  10  J«l,Nl 

02699  0 

10 

S119S11»44(J)*SE(J,X) 

026990 

RETURN 

027000 

ENO 

027010 

FUNCTION  SE(J,X) 

027020 

CONNON  /NESN/  T ( 21)  , G (101)  ,M(  21) 

027030 

CONNON  /P4R47U0.N.N1.N2.NN,NNP1,REF 

027040 

IF( J.EO. 1)  :0  TO  100 

027050 

IF(X.LE.T(J))  GO  TO  300 

027070 

IF(X.6E.T(J»1))  GO  TO  400 

027090 

SE«2.0-E2(X>T(J))-E2(T(J*1)>X) 

027090 

RETURN 

027100 

300 

SE«E2  (T(  J)>X)>E2(T(J»1)-X) 

027110 

RETURN 

0271 20 

96 


SE>E2(K-TU»tl>-C;<X>r  (Jt  ) 

RETURN 

ifix»u,ytzn  so  ro  soo 

SE»E.«EZCXI“EZ<Ttg)-K> 

reTTTrn 

SE»E^<X-T(^^»-E^tX> 

return 

lF(X.6E.T(N-in  GO  TO  600 
SE«E^TT(N-i^  -K)-E^a  <NI-X) 

RETURN  

SEa2,0-E2<X-T(N-H»-E2(T  «N»-X) 

RETURN 

ENO 

FUNCTIM  SlRTd) 

OIHENSION  CN(101» 

C01H0N  /NESi/  T(21>,G(101),WC21) 

CONHON  /EFUN/  E3T (21 ) . E2T ( 1011 , £ STTt 101 > tCBT 1 1 101) » E 21 T ( 101 1 

CONNON  /PXRKJOiN.Nl  .N2  , NN.NNPl.REF 

SUilsO. 

SUI12«0. 

do  10  K<1,NR 

x|n«xM 

GM(kT«6(K)«G(XP1) 

IFd.EOd)  ;0  TO  100 

II*  I-l 

00_  20  K»1,I1 

SU'(i*SUNl»61(<)*<E2T  (i-Ki-E2T(I-K«l)) 

IF  (I.EQ.NNPl)  GO  TO  200  

00  30  X«I,NN 

SU<(2*SUN2«G*((K)*(E2T  (K>I  ♦2)  >E2T(  K -1»1)  I 


S1'(T*(SUH1-SU'(2>«.S 

RETURN 

ENO 

atpCK  OXTX 
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.BLOCK  DATA 


.VERSION  6.0 
. .E. R . T . f I NC. 


LEVEL  220216 
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REAL  TITLE(6) 

► ♦♦♦T  ♦ ♦♦  ♦ ♦ ♦♦  ♦ ♦ 

CONNON  2HEA0/  TITLE t IC OOE, VERS . LEVEL* DATEi IRON. NPA SE .NL 05 _ 
CONNON  /EOOV/  FKKfIl|PlltP22,NE3aV 

CONNON  /NODEL/  ALT ( 61 ) .T  ENP (61). DM  1611 . t«^3(61)  .DA23I61) 

CONNON  /NOL-(V02  XN (S 1 ) . XH20 (61 ) i PN2a»  RN2«  Xll  ( S II 

CONNON  /NSCAT/  SCN02.SCCL03.SCM202.SCN20S 

REAL  J0?«  J33f  JNPOf  jN02t  JN20,  JNEOS*  JNN3S,  JCN6.  jCF2y 

X JCF3.  JNCL.  JN232.JN0C. 

CONNON  /PARN2  ISMIT » TSTEP. TSTOP« TLOOP, ITPRNT . ISIZEt ISCAT T 

C 


X JN209(61)»JNN0S(61)  •JCN6(61)  » J:F2  (61)  t JCF  3(  6 1)  . JNC.  ( 61)  •.JN20 
V ,JN0CL(61) 

■ REAL  JN03 

CONHON  /RATES^  RATE(6Siai),RA(6II ,RB(65).JN03tPJ03 __ 

CONNON  /RLOM/  IkNEOt  RN0X»RCH6»RF1 1 »RF12»  RCN3C,  RCLXi  RCCLR.  ROS 

CONNON  /SFACT/  FCL,FN20. FCLM03.*NO 

CONNON  /SOLCON/  ML (1 00) » FL( 100)  , Q02( 100 ) » 003 ( 100) 

_ CONNON  2SOLCN12  qCF2 ( 100 ) ,QCF 3(100 ) »aCCL6 (10 0) .0CH3C (1 Bl) « 

X QCLN03(100)«QN20(10a)«QHNOS(100)tQN202(100l  *QN205(100)t 

_V  QNCL  C10  0).3N3CL(t00).QNO2(100).QH2l)(10O) 

REAL  N0»N02fN0XtN03(N20S 

CONNON  /SPECIE/  N (61 ) .OH ( 611 . NO* ( 6 1 ) . NP02 (61 1 . 031 61 1 . 0 (61  I . NO 


022130 

022160 

022160 
022120 
012  JdO 
022190 
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_ 022260 
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022260 
022220 
022280 
022290 

022300 

022310 

022320 

022330 

022360 

022350 

11223.60 

022320 
02236  0 
022390 
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022620 

022660 


022690 

022500 

022510 

022520 

022530 

022560 

022550 

022560 

♦♦♦♦♦022520 

022580 

822590 

027600 

022610 
022620 
022630 
022660 
022650 
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2(61)022620 

022680 

022690 
022200 
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022220 
022230 
022260 
022250 
022260 
022220 
161 1 .02226  0 
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O (> 


1 N02(%t)  (NOX  (%1»  ,C0(%1I  •02(%1)  iCH«>(%l),H29(klltHZ(%l)  . 

3 CLN03f<il) 

:OltNON  /SPE:01/  FJ,rjFCiTL  

PEAL  LAT 

SOHMOH  /MT/  A(6> tPL.LAT.DEL 

COMMON  /XXES/  KtlAl>,X2(Sl).X3<St)»XA(ll)»XS(|lltXkCll)tX7(81l» 

1 ** 

OATA  TIT  LE/»  MCMrOHINE  t AM  HO  DEL  S » 6Mfuoir>«o7AMGI»A  N,  I M ,Im'  ~ 

* DATE/IH  /,NL0G/9/.1TUH/I/.NPA6E/I/ 

OATA  JN03/1.3E-2/ 

OATA  FCLiFCi.N03»FM20/1.0. 1.00, 1,0/, FNO/ 1.0/ 

DATA  RN2O«PMaX,RCHi»,RFH,RF12,R:M3CtNCLX»RC:LA/2.50E>7tE.'00E10« 

1 l.SOE-Ofc,9.3BE»Ofc, 1.30E»  07.1.S0E-Q9tl.0BE»l0«1.31E-10/ 

OATA  R03/3,BBE-08/ 

OATA  FJ.FJFC.ri/l.O.l.e. 3,15E13/.FKK/t.8/.ISMIT/t/.M-D0r/0/ 

OATA  Il,Pll,P2?/99,l.B,1.0/,PJ03/1.8E-A/tLAr»OEL/30.*0./ 

OATA  SCN02,SC:L03iSCH202.SCN205/A»1. 0/ 

DATA  RN2.PH20/5.E-7,d./ 

OATA  X2/81*B./ 
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027800 
027810 
027820 
027830 
027SAO 
027890 
027860 
♦♦027870 
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027890 
027900 
027910 
027920 
027930 
027960 
027950 
__  027960 
027970 
027980 
027990 
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F 3. OE-10.3.0E-H).2»0.,2.0E-11.16»0./ 

DATA  RB/-1070.,  3»0.,360. , 0.,-1125. ,-750 . ,-1525. ,-250.  , -1 
X -500.j3?0.j-^50_,,t!ll5.i-250ij  _ 

A -313.,-1710.,  0., -600., 0., -20 10., -2600.  ,0 

e -2  57., -1260., -226., 2*0. .520., -2160.. 3*8.. -9700.. -1650.. 
C 6» 0., -3200. ,6*0. ,107. .16*0./ 


DATA 

21080. 
31400. 
418i 0. 
52300. 
62  72  5. 
73175. 
83625. 
96100. 
A5a00. 
B5900. 


ML/937. 
Oj^lllO. 
0,1650. 
Otl9JBO. 
0,2350. 
0.2775. 
0,3225. 
0^36 75. 
0,6200. 
0,5100. 
0,6000. 


8,969.7 

0,1155. 

0,1500. 

0,2600. 
0,2825. 
0, 3275. 
0^3725. 
0,6300. 
0,5200. 
0,6200. 


,970. 0 
0,1190 
0,1550 
0, 200 0 
0,2650 
0,2875 
0,3325 
0,3775 
0,6600 
0,530  0 
0,660  0 


,972.5,9 

. 0 j 1 210. 
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.0,2050. 
.0,2500. 
.0,2925. 
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iOi3825, 
.0,6500. 
.0,5600. 
.0,6600. 


77.0,1000.0,991.  5,1026. 
0,1215.7,1250.0.1300 , Oj 
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0,2100.0,2150.0.2200. 0, 
0,2550. 0,2575.0,2625. 0, 
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0,6600.0,6700.0, 6800.0, 
0,5500.0,5600.0, 5700.0. 
0,6800.0,7000.0,7200.0, 


-11,  0 280  3 0 

E-12,  0 28  06  0 

2,  028050 

,9,nE>6,  028060 

12,  028070 

02808  P_ 

ffOB.,0.,  028090 

028100 
.1,1055.,  028110 

-2650,,  020120 

028130 

- 020160 

■,1035.0,  020150 
1350.  0,  028160 
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87.1 600E^13.6.0800E^13. 1. 1200E^16. l.S100E^16. 1.620 Oi^ 14^1 
92.060  0E^16,3. 110  0E^16,6.  260 QE^16, 6.66 OOE^ 16,  6.0700EA16 ,5 
A 6 . 2 200E ♦ 1 6j  6 . 5200E^1 6 , 6. 950 0E^16, 9.3300E616. 9.590  O^^ |6 , | 

89.9  00QE^i6,9.910bE^16,l. 1 C0  0E^15, 1.0  200E^15,  1. 110 OE* 15,1 

C1.1780E*15.1.3380E*15,1,1600E*15,1,1608E*15.1.1688E*15.1 
01.1000E*15,2.5900E*15,6.0100E*15, 3.95 OOE* 15,6. 2300E* t 5 ,6 
E6 . 9700E*15,5.050BE*15,5.2000E*15,6.9000E*  .5.0100E*15,6 

F6.86dOE*15,5.  1000E*15,5. 31 0 0E*15, 5.38 00E*15,  5. 3200E* 1 5,5 
G5 .6  00 0E*15,5.62B0E*15,5.660 QE*15, 1.0800E*16.  1.07BOE*16, 1 
Ht.0300E*t6,1.0lOaf*16,9.93dQE*15,6.90BBE*15/ 


1350.  0,  028160 

1800.0,  028170 

2250.  0,  028190 

2675.0,  028190 

3125. 0,  _ 028200 

■575.0,  028210 

V025.0,  028220 

V900.0,  028230 

5800.0,  028260 

7300.0/  028250 

028260 

I60B0E*09,  028270 
.49Q0C*O9, 028290 
.'1900E*10, 028290 
,I6000E*11, 028300 
.2500E*12,02831 0 
.<a&M£tL}jQ2832(L_ 
.I5000E*13,020330 
.i6L00E*16, 026360 
.l56dOE*16, 028350 
.3S00E*16, 028360 
.I3100E*15, 028378 
,ytBe*t5,8;83M 
.i«70BE*15, 028390 
.IS900E*15, 028600 
.‘360BE*15, 028610 
.I1900E*16, 028620 

028630 

- - - 028660 


Willow*-'*’ 


rw!" 


DATA  Q02/S.200aF-16t6.9000E-15,S.5000E-lSi A. OOOOE-ir,2.0aOOE-ia,  028^50 
?t.?0BBE-ie.t.  900  0E-iat  1.  e>OOOE~H  tl.2aQ0E-t8t  t.000QE-l8  ,l5iiBB0flE-l‘},0  28Af>B 
3A.BBBBE-19t3.6BBBE>19  «A.6  BBOE-lt  t t«BBBBE-2Btl*  0BBBE>t6*S.I9BDBE-19«B28<»7  0 
AA.BBBBC-lBil.BBBBE-iytl. 0flBBE-12il.BBBBg-17. S.ABBBE-IB.A. 3BBBE-18iB?8i.8 0 
5<».3BSBE-tatS.SBBBE-t9f2.7BB0E-l)f  6.BBBBE-21,  S.90BBE-22,t.lbBBBE«21,B?SA)B 
62.B9BBE-23«1.3BBBE-23it. B CB9E-g3» a.SBBBE-gAi 6.9B9BE-2A t9.'BBBBE-2»i BZaSfl fl 
7A.BBBBE-EAt3.BBBBE-2A,1.6  •BBE-2Atl.BB0BE-2Ai7.0BBBE*E5t5.'BBBaE-?9,B2BSlB 

ai.2BBBE-2S,30»B./ _ _ B2B52fl 

— . _ B2as3a 

DAf  A Q03/2A*  t«»B.3SBBE-19«e.39B9E-19i  7.  A19BE-19.6.a67BE-i:9.  B2BSA0 

2A.7BBBE>t9tA.B7ABE-19t2.963BE-t) t3.333BE-19.S.926BE-19«l.'BSBaE-ia.B2aSSB 

31. a6BBE-iBi2.9BBBE-lBi4. AflBBE-19i6.2BflBE-lBt  B. lBB0E»lB.9«'9BBBE-lBiB2BS6B 
4t.iaaBE-t7»i.  i3aaE-i7*i. iaaaE>i7t i«BaaBE-i7»a.6aBaE-iat6.i«BBBE-iata2a;7B 
6A.»BaBE-iai2.7  9BBE-iait.bOBflE-l)il.OBflBE-18i  A.7BflBE-Ht2.ifeaBBE-19tB2aSB0 
6i.AaaBE>i9i6.$BBaE-2at 3. 6aaBE>2a* i.aaaaE>2a,7.7aoaE>2t  «A.'iaaoE-2i.B2a99n 
72.0flBBE-21i6.9BBaE-22i<i.  BaB3E-22i2«SBBBE-22i  lB*B.BBaBB.2«i9B9BE-23.B2a&B0 
aA.aBBBE>23,6.aBaaE-23|l. 25aBE-22»1.7iaaE-22,  3.57aBE'22,AJOaa0E>22,0  286ia 
97.1BBBE-22.S.3BBaE-22.1.  2 0BQE-2atl,6BBBE-21t  l.BtB  aE-21  «2.;5Ba0E-21 . B2862  0 __  _ 
A2.)  BBBE-21f  3.2aaBE-2L,3.9  0BBE-21«A.7aaBE-21.A.6aBBE-?l  , 4.148 BBE-El, 8 2863  8 

B4_.  9BBBE-21, 3 . 9aB0E-21 1 2.  7 0B0E»2t  i 2. 10  aBE-21i  1. 40B  BE-  2J  1 9.’IB  B 0 E-22 1 B 28  64  0 
C6.40BBE-22»9.1BBBE-22/  B286Sn 

• " ------  - - - - r_-  - - 028660 

DATA  tENP/3.0458E«02, 2.a9S6E«02«2.77a7E«02,2.6692E»02. 2.S241E»02,  026670 

22.3a39E»02.2.2442E»02.2.10SO£»02.2.B315E»02.2.073aE»02.2.'1175EA02.0  «6J  1 

32.1S94E»02»2.1920E«02,2. 23842 »02» 2. 276SE» B2, 2. S179E» B2 ,2.i3574E»02,0 26690 
42.4  04  0E*8  2t2.4514E»0  2.2.  496aE»02i  2.S462E»02i  2.993SE»B2.2.l64  8aE»0  2.B287  0 0 
52.6660E«02t2.7216E«02,2.7215E»Q?. 2.7114E»02,2.6721E»02«2.i6328E«02.a28710 
62.9936E»02.;.S479E*02.2. 4735E» 02 . 2.3991E»02t 2. 324 7E» 02 .2.!2504E*02.02a72 0 
72.l761E»02»2. 1019E*0  2, 2.  0 277E* 02t  1 •9S36E«  02,  1 . 6 79SE» 02 , 1 .180 94E»02/0 28 73 0 

026740 

DATA  OH/2.4110E»19,2. 109 0 E»19,l.  69 10E*19 , 1.340  0E» 19, 1. 088 0E» 1 9,  0 2879  0 
2a.7330E»18,6.9130E»ia,9.9310£»lH,4.1030E*18, 2.8240E»18 .2. Q00BE»16,02876O 
3l.429  0E»18,1.0  320E^16,7.  4450E*17,  9.4230E«t7,  3. 970  0EH7 ,2.I9240E»1 7,0  287  7 0 
42.1990E»17, 1.6040E»17,1. :9a0£»iy, 8.9990E»16, 6.7980E»16.9. 1610E»t6.02a780 

93.9  390E»16,  3.0  3 90E«16,2.  372 0E«lb,  1.8600E»16,  1. 4710E»  16 ,1  .'1590E«^16,0 28790 
69.1090E»19,7,1440E»19.9.G360£»19.4.416DE»19.3.4390E»19.2.662QE»19.028SOO 
72.0260E»19,1.9390E«19,1.  1920£«l‘i,  8.9940E»14,  6 . 261  0E»  14 , 4.l9960E»14/0  28 3 1 0 

- _ 0283  20 

DATA  03/6.29  0 0E»11,6.  13C.0E«11,9.  3100E*  11,4.  76 00£«t  1, 4 .4900E«  11 , 0 263  3 0 

24.180  0E»11,9.290  0E»11,6.  920  0E»li.,2.670  0E»12,  3. 740  0E»12.4.i47  0 0E»12.0  283  4 0 

34.8  OObE»12,4.8  70  0E«12,4.4  70  0Etl2, 3.9iOOE»12,  3.  29 0 0E»1 2 , 2.'97 OOE^l 2, 0 288 90 
41.9200E»12.1.3800E»12,9.6600E»11, 6.6200E*!!, 4.43BOE»11.2.6800E*11.02a860 
91.I10  0E*11,1.140  0E*11,7.46  0 OE^IO,  4.93  00E»10,3.40  0 0E»10 ,2.'32  00E«10,0  28}70 

61 . 9 70  OE»i^  t.060  0E»10,7.  94C  0E»0;i  , 9 .29  00  E»  09,  3j  920  0E»  0 9 ,2  ..26  00E*09 ,02888  0 

71.3  70bE>09,3.9600E«0  8,9.  0 70  0E«Q3, 3. t7Q0E»0e,  2. 030  0E»06 ,l.’S2  00E«08/0  288  9n 

0 28  900 

DATA  OH/1. 6tOOE« 06,1. 24 0 0E«06,1.0600E»  06, 1.  0 100E«06, 7 .32aOE« 09,  0 26910 

24.9600E»09.3.4100E»09,1.9400E»09.2.0000E»09. 2. 7BOOE»B9.3.440BE»09.026920  _ 

34.3  30  0Et09,9.94a0E«09,7.  1200E«^05,9.320  0E>09,  1.2600E» 06,1. i7300E«06,028 93  0 
42.4 300E» 06,3.3e00E ♦ 06 , 4. 9900E»06 . 9.98 OQE» 06.  7.26 0 01^0 6j 8.0000E406,028940 
97.9600E»06,7.40  00E»  06 ,6. 7 30 0E» 06 , 6. 01 00 E» 06, 9. 38bOE» 06 ,4.'76 0 0E«06 ,0 28 990 
64.1600E»06,3.6700E»06,3.  160DE»06,2.67  00E»06,  2. 340 OE»06 ,2 . 10 B0E»06 , 0 289 6 0 

71.9  200E*06, 1. 7 00  0E«06,1. 990QE«0>, 1.28  OOE»06,9.89bOE»09,7.i69bOE«09/0  26  9 70 

- - 0269 8 0_ 

DATA  0/2.8900E»03,2.B90aE*03,5. 48 0OE»0 3, 3.630 OE* 03,4. 6100E*03,  028990 

29.98B0E»0  3,  1. B40  0E»04, 1 . 9 00 0E» 04, 1. 1900E»09,  3 . 640BE» 89  ,9 . 290 0E»09, 0 290 0 0 

32.  110  0E*06,4.420  0E»0  6,8.6  70  0E4'06,1.60  00E»07,  2. 840 0E»07 , 4.186 0 0E«07 , 0 2901  0 
49.1700E»07,1.3900E»06,2. 210DE»08, 3.6S0BE»0a, 6. 0800E» 06 ,9.i6300E»0e, 029020 
9t.4  70  0£«09,2.0000E»09,2.9900E»09,3.  t200E»09,  3.690  0EH9,4.'29  00E»09,0  290  3 0 
64.610  0E»09,9.3  30  0E»09,9.9200E»09.6.9108E»09.  6.a30  0E»l9,6.i9100E»09.02904  0 ___ 
76.8  30  0E»09,6.9400E«0  9,6.840  0E»09,7.28  00E»09,  8.  0900E»I9,9.I4000E«09/0 29090 

- - - - - 029060 

n^AfA'  H/1.2100E-01,8.8000E-02,8. 1900E-02,8.000«E-02,9.9100E-02,  029070 

24. 1900E- 02,2. 67BOE-0 2,1.  9400E-02,1.400BE-B2,  2.100 0E->2,3.2700E-02, 02908  0 

39.7  70  0E-02,1.1S00E-01,2.S800E-01,  6.2700E-81, 1.66bQE»00,9.l03  00E«00,02909  0 

41.7  00  0E«01.6.1100Ea01,2.2  70  0E»02,8.S3QOE*02.  2.9000E»03.8.I9000E«OS.  0291  00 


99 


o 


S;.2  70  0E»04»«%.SS0QE«0V,9.  090  0E«Oi>«  1.9B  00  E«  09*  2.  S60  0E»  1 5 tW.i09  QOt « 06 . 0 2911  0 
6S  . 3 200e»06,9.5e  00E»06*  1. 3aOOE»  06*  1»96BBE»  06*2.70  OM*- » b|3.99  00E^06,029l?0 

75.9  900E»06*».69I0E>06»1. 310  0E«07* 1.9200E*07*  2.76dOE»l7*3.l6100E»a7/0291SO 

* JIL  ” 0291«i0 

bftro  N02/Z.620aE««S*1.7600E«Q6*t.3iOOE»08.t.2500E»OI.0.1500E«07,  029160 

25.0<tOOE»B7t3.1SOOE»O7.1.aiOOE»O7.t.6aBBE»07.  1.7900E>87,2.  I>»0BE»07, 0 2916  0 
3?.2  90  0E»07*2.5l»0  0E*0  7,2.67O0E»07*  2.7000E«07*  2.6aOOE»07(2.lS0  0OE»O7,O2917O 
«»1.9  2aOE»07*l.StOeE»07*l.  1700E»07, 9.2300E»06t  7.69BOE»l6«6.l7200E»06,029t8  0 
66.)2d0E»a6*6.ia00E>O6,l».6600E»0'6*3.96  00E>06*3.660OE»06*S.'00OOE«06.O2919O 
62.690BE»06*2.?300E»06.1.a700E»Bi. 1.66  00E»86.  i. 330aE»06 .1 . 190aE»06 . 0 29? 0 0 
7l.Os68E*06*).620  0E*06*a.6700E»0>»7.0680E«06*  6.260  0E*B6*3.l660dE«06/0 29210 

029220 

oar  a h202/2.ioooe*io  *2.600 oE*io*i.ao ooe* 10*1.2 08  0E»io *1.1300 oe«io,  029230 

26.3  0Q0E»B9.<i.  6000E»09.1.<*000E»09.9.96DDE»07.  2.»100E»B7.3  ,'9'»OOE*07j0  297VO 
3%.4200E*07*<».  16  0 0E*0  7,3.660  0E«07*3.010QE»  07,  2. 488 0E» 07* 2.1270 0E»Q7, 0 292  60 
42.08 00E»87. 1 . 86 0 g E ♦ 0 7i 1 . 6 15 0E» 07  * 1. 3300E2 07.  1 ,07 IQl ♦ 0 7 * 8 . 65 0 0 E ♦ 06 , 0 29 2 6 0 
66.3800E»06*4.6aOOE«06,3. 2000Et06*2.2400E« 06*1.6000E*06*1.’1300E206,029270 
67.9800E»06.6. 7400E»06.3. 8600E»05.2.4600E»06. 1. 710 OE»06 .1 . 2300E»06.D 2928 0 

79.9  90  0E2  04*7.230  0E«04,6.9  30  0E2  06, 3.B3  0aE2  06,  2. 0600E»04*9.I02  0 0E»03/0  297  9 0 

■ ’ *_r_“  ^ - r - - - - 029300 

oara  JHCL/1.3(>76E-29*1.  7155E-26,1.  0696E-23«3.6073E>2i*6.  9259E-19,  02931  0 

26.7mE-17,3.11B3E-16.8.7227E-14,1.6169E-12.  1.4303E-11.8.'4891E-11.0  29  32  0 

33.6  3i6E>10,1.  232  7E-0  9*3.4  04?E'-09*  7.9316E-09,  1.6998E-08  * 2.I8437E>08*0  293  3 0 
•■>.6Q69E-08.6.4398E-OB.8.44eiE-Oi,1.0623E-07.  1.241Q£-07^1.im43E-07.0  29  3 60. 
61.6460E-07*1.6726E-07,t. 7994E- 07 , 1 .9 339E-07, 2. 0849E-07 ,2.'2586E-07 .029350 
62.4660E-07.2.6740E-D7.2.9  069E»07.3.1487E-  0 7x  3,  4177E-0  7 3.^8  96  £-07,0  29  350 
74.0039E-07,4.3648E-07,4. 7911E-07, 6 .28 63E-b7, 6. 818 OE-07 ,6.>36a4E-07/0 2937 0 

. — - — 02939  0 

oara  JCH6/26*0.*l.d269E-2  7*  3.2369E-23*!.  1507E-19,7,524  8E-17,  0 2939  0 

21.2  64  7E-14.7.2764E-13*1*8  016E-11.2.3133E-10.1.7666E-09*8.660  3E-09 *,0 214 0 0. 

33.010  6E-08,7.9106E-06*1.6a69E-Or»3.0672E-07,  4.810  2E-0  7,6.I7969E-07/029410 

- - - * - T_-  029420 

oara  610/2. 9220E-03,3.3919E-03,3.8611E-d3*4. 3968E-03,6.1697E-03,  029430 

26.1919E-03.1.0  078E-02.1.6  063E-02.9.7719E-Q2.2.390  lE-Jl *5  ,'1692 £-01, 0 2944  0 
31.0  496E*Q0,2.  0826E20 0, 3.  a613E» 00,  6.88  66E9  00,  1.  182 0E» 01  ,l.i92d9E«0 1,0 29460 
-»g.taaaEt-aii6*.3666£*ttt.6tlg22&»Mia,66aflE»fll.i,  165a£»_02.1v%672E202, 02946  0 
6l.6966E»02,1.7919E»02,l.e 142E» 02, 1. 7690E» 02, 1. 7116E» 02,1.1606 7E^Q 2, 029470 

61.4  726E»02.1.328eE»D2il.2417E»Ci2.  1.1422E»  02.  9.9626E»81 ,8 . 3661E»01 .0  2949  0 

76.7  269E«01,6.6916Et01,4.  4 68  OE^Ol*  3.8082E>01,  3.  3876E»B  1 *3.111  a8E»01/0  2949  0 

- JT  J-  T__  - - - 029600 

oara  JN26/3. SllSE-io, 3. 3 7 76E-10,3.4402E-1Q*3.4960E-10.  3.6496E-10,  0 29610 

199E-10.3.6661E-lD*3*  7 29eE-n.  3.9724E-10.4.6762E-Lt*6.63  9JLL--lQx.Q  295  2 0 

31.2  38  3E-Q9,  2.S266E-09*6.6720E-09,1.4198E-06,  2.  7 762E-I8 ,4.ISS67E-06* 0296  3 0 
4 7 . 7690E-  86x1.1 18_/E- 0 7x  1x48 46E^- C7 j 1.8706E- 07.2.228 2Er07,2.5396E-07,02954B 
6?.0033E-07*3.0302E-07*3. 2303E-07 * 3.4130E- 07, 3.5868E-87*3.l7595E-07,029560 
63.9349E-07*4.1144E-0  7*4.2  976E-07  *4.48 13E-07. 4. 6727E-87 .4. e6  08E-a7 .0  2966 0 
76.0774E-07,5.3269E-07,5,6308E-07,6.0045E-07, 6. 431 9E -0 7 ,6 . a785E-07/02957 0 

- ^ ^ . 6295J0_ 

oara  JN206/1.2S07E-36,1. 2864E-06, 1.2910E-06, 1. 2966E-06 *1 . 30 1 QE-06, 029690 
21.3062E-06,1.309eE-06.1. 3167E-06.1.3330E-06.1.3694E-06.1.4246E-86.029600 
31.6  06  7E-06,  t.6326E-06,1.8  3d6E-06,2.1404E-06,  2.  6320E-86 , 3.1371 9E-06 , 0 2961  0 
44.4228E-06*6.7a64E-06.7.4327E-06  * 9 . 38  D4E-06.  1. 162 6E-84. 1. 137 77E-04. 029620 
61.6999E-04*l.S017E-04*1.9764E-04*2.1266E-Q4*2.2476E-04*2.i3476E-04,029630 
62.42B4E-Q4.2.4919E-04.2.641QE-C4.2.5789E-04.2.687  0E-a4.2.6267E-04.02964(r 
72.6400E-04,2.6488E-0  4*2. 6646E-04* 2.66S4E-04,  2.6610E-84,2.I6627E-04/0?9660 

j-  - 829660 

oara  J»4N03/1.  7663E-0  7*1.  796  7E-0r*1.8266E-07*  1.  8633E-0  7 ,1 . 8703E-07,0  2967  Q 
21.9  022E-0  7.1.  9287E-0  7.1.9629E-07*2.B68  0E-07.  2.3262E-B7.2.I6660E-87.B2968  0 
34.1267F-a7*  7. 1813E-07,1. 3a94E-06* 2. 700  0E-06, 4. 9742E-06,8.44  96E-06* 0 2969 0 
1. 3130E-06.1.869BE-06. 2.  4671E-06*3.1130E-86.  3.7342E-BS.4.'3B96E-Q6. 02970  0 
64.»260E-06*6.2789E-06*6.6697E-06*6.0  0 84E-86,6.2996E-0  5*6.i66QOE-06,0  297ia 
66.79B4E-06.7.02QaE-06*7.2324E-05.7.4349E-06.7.6237E-flS.7.7946E-86.029720 
77.)63aE-06*9.1042E-S6,8.2714E-0;,8.3244E-06,  8.4143E-BS,8.<490  3E-06/0  297SO 

- - - - - r - - - - 8297  40 

oara  JN202/1.3671E-86*1. 36b3E-06,1.376BE-B6, 1. 3828E-06 *1.1390 OE-06,0 297 60 

21.3968E-06.1. 4044E-06.1 . 414ar-Q6. t . 4471 F- 06. 1 .681 77- 06 . I . 69 « 6r>n6 . 0 79 76 n 


100 


ci<  1 o o ci(o  c>  tj 


31.r  ?19C>06|  l.)206f-0  6,  a.  2 2 0%E-Q6,2.6r55E-06,  3.  3e6lE >8 b ,4 .(^527 E-06, 0 29^  7 0 
4b,0  0l«-«bjS.1395E-06j  i.  0^4  0E-05_,  O^j  I s«545E  - 05,  2.  33i7£- 05, 02925  0 

S2.S4SaE-0S(3.  3262E-05,3'.>4flbE-y5,4.ll82E-  05,4.  420  5E-3  5,4.674  9E“05,0  292  9n 
64.5a&7E»0S,5.05r5E-0  5,5. 193aE-0S.  5 , 30  28  E- 85,  5 . 388  01.-8  5,5 . 45 1 3E-05, 0 293  0 0 
75.4992C-05,5.5353E-0  5,5.5  639E-05,5.58  74E-05,  5.80  7 3E -05 ,5  .'8238E-0570  295  I 0 

0 295  2 0_ 

D*f  0 MIII0374. 74E»  1 0,2.1 3E*10,  1.0  9E«10 , 1 . 5 8F»  t 0,  1. 22E»1  0,  8.84E^09,  0 299  3 0 

28.58E»09 ,4.&3E»09,8.86E» 09, 1. 03i» 10,9 ,9 0E»09, 8 . 18E»8 >, 5. ?3E»09,  029540 

3J.3iT»09,l.f9E?0^,9.i3E*  08, 4. 84E*  08, 2.55E4  05 , i.33E»8 9 , 6.  7 2E*07,  029550 

43.0  7E»07,i.teE»07,3.b7E»06,9.55E»  05,2 .3 SE»OS , 8. 09E»84,  1.80E»04,  0 29580 

54. ;2E»03,1.28E»03,3.3  0E»  0 2,8.95E«01,2.48EVoi, 6.86E»bO, 2.08E»0  0,  0 295  7 0 
88.9  4E-01,7.88E-01,3.0  0E-01.1.3yE-01,6.29E-02.2.99E-02.  1.  3»9E-02/  02959  0 

~ 0 295  90 

08T4  MOX/2.99E-0^,1.76E-09j1._33E-09j  l,35E-a.9il.S8E-09,l.i39E-09,  0 2990  0 

2l.48E-b9,i.b0E-69,3.4iE-09,5.45E-09,7.89E-09, l.OOE-09,  1.Z3E-00,  029910 

3t.44E-08,t.82F-Oa,1.7  7£-oa,1.8y;-08,1.92E-08.1.93E-OS,  1.9  0E-0  8,  0 299  2 0 
4t.9  5E-08,1.77f-08,l .67E-Ca, 1.55E-08,  1.4  2E-05,  1.29E-01,  1. f5E-0  8,  0 299  3 D 

59.98E-09.8.50E-09.7. I OE - C9 . 5. f SE - 09. 4 . 75E-09 . 3 . 89E-0 9 . 3. 28E-09.  _ 029940 
b?.85E-09,7,91F-09,7.b4E-Q9,7.84E-09,8.58E-09, 1.02E-09, t. 78E-08/  029950 

- - - J-  - - - - - 029980 

0*7*  H2O/2.6E-b7,2.8E-07, 2.6E-07,2.6E-Q7,2. 6E-07,2,iE-07,2,6E-07,029970 

22.SE-07.  2. 57E- 07,2.  27E-Q  7,1.8  7E- 0 7,1. 52E- 07.  l,29E-0y,l,(J3E-0y,  029950 

39.2bE-00 ,7.63>-b8,8.23t-  08,5.03E-  08,4.0  SE- 05 , 3.21E-05, 2.5i8E-08,  029990 

55.8  0E-09  5 5.08E-09,4.46E-0  9,3.9UE-  09,3.5  8E-09, 3.28E-0  9,  3.  OtlE-09,  03001  0 

62.8  OE-09,2.84E- 0 9,2,5  IE-  0 <1, 1 . 4?E-  01,  3 3E-  Qi,  2. 3E-  8 J 7 030020 

---------------------  030030 

0*7  * CH4/1.50E-08,  1.49E-  3_6  j 1 . 45_E- 08j  1. 48E-3  8,  1. 48E-0b,l  .I47E- 06,  0 3 004  0 

21.4  7E-b8,i.4  7E-08,1.4UE-Oii,1.3  3E-fl8, 1 .25E-C8,  l.lbE-OS,  1.  88E-06,  03  005  0 

39.6  8E-07 , 8.68E-0  7.7.b9E-0  7.6.7lE-Q7.5.7  9E-07.4.93E-0  7.  4.  t;7E-0  7.  030080 

43.5  2E-07,2.98E-0  7,2.55E-0  7,2.2.5E-0  7,?.OOE-07 , 1 .83E-07,  1.  71E-07,  ‘ ‘0  300  7 0 

51.6  2E-0  7,  1.56E-07,1.51E-Q  7,1.47£-Q7,1.45E-07, 1 .43E-0  7, 1. VIE -0  7,  0 3 006  0 

6l.40E-07,8*0.7  030090 

- ^ ^ - _____ ___  _ ^ _ _____ 030100 

0*7  * C0/9.97E-08,9.53E-  Oa,9.t‘5E-0  8,8.8  0E-09,8.24E-0  9, 7.  9eE-08,  030110 

27 .42E-09 ,7.08E-08  «4.80E- Ort, 3. 1 SE - 08, 2 . 3 9E- 05 . 2.  07E-3  3. 2. 02E-08.  030120 
3?.14E-08,2.54E-08,2.56E-CB,2.7'2£-  08,2.8  OE- 05 , 2 . 77E- 0 8 , 2.86E’-0e,‘  030130 

42.i7E-08j^2.5lE-n?,2.54E-  C 8,  2.  86E  - 08,  2 . 9 OE- 05 , 3 . 25_E- 8 5 , 3.  7 5E-0e,  030140 
54.41E-08,5.21E-b8,6.l4E-08,7.13E-Oe,8.11E-b8,8.9eE-05, 9. 83E-08,  030150 

69.9  3E-08,5,74Et07,l,l0E- Ob, l,99E-06,3,5  9E-05, 8.45E-Di,  1. t7E-05/  0 3016  0 

... ______ 030170 

0*7*  MO/6.6  IE » 89. 5. OiE*  C 9, 4.40E » 09. 1 . 0 7E» 09 . 1 . 4aE» 09 . 2.  1 3E»  0 9,  030180 

22.5  0E» 09,3. 48E»  09,2. 2C£»  0 9,  1.6 JE+  09,  1.3 4E»09 , 1.26E»0  9,  1.2.9E»'0  9,  03019  0 

31.3  4E*0f ,1.35E*09,1.  33E»09, l.2J£*  09, 1 . 2 2E« 0} , 1 . 15E»a 9, 1. »7E*09,  030200 

49.76Ey0O,8.58E»b8,7. 10E«  08 , 5.5  LE » 08, 4 . 09E^09 , 2.97E»0 5 , 2. lOEtOB,  0 30  21  0 
51.45E*0a,9.5  0E*07,8.44E»  (;y.4.16;»  07,2.68E*07,  l.7?l*97,  I,  t2E*07,  030220 

67.59E»08,1.60E«07,1.17E»b7,9.C3E«b6,7.34E»06,6.4tE»06,5.83E*06/  030230 

- - r 0302_40 

0*7*  N02/1.B1E«10,  1.0  7E«’ia,6./0Et09,  1.  20E»0  9, 1.16E»a9,l.ll5E»09,  0 30250 

2l.l9E*09il.39E»09,2.86E*  0 9,3. 32E ♦ 09, 3 . 7 8E ♦ 0 J , 4. 29E»0 J , 4. 6 5E» 0 9 , 030260 
35.16E*0'9,4.97E*09,4.34E*0  9, 3,49E*09,2.59E«'09,  l.7gE*0  9,  1.  t4e»09,  0 3027  0 

46.5  3E»0B,3.30E»08.1. 46E*  0 8,5.6  5_E»  07,2i30E*  07 , 9.0  3E*0  6,  3.5<2E»06,  0 3025  0 

51.3  7E4b6,5.22E*05,1.96E*a5,7.29E*  04, 2,71E*04,  1. 02E40 4,  3. 98E ♦ 03,  0 5029  0 

8t.59E»fl3,2,38E»03,l,22E»03.7.03E»02.4.88E»02,3.48E»02.2.79E»02/  030300 

030310 

D*7  * M2/5.  0 0 0 OEj:  87,  5. 0 0 0 0Ej:^^7,  5_.  0 080 E-  0 7,  5j_0  0 0 OE-1 7 , 5 . 0 OOOE-  07,  030320 
25iQ  bb0E-07,5.0bb0E-07,S.  3 bbOE-37, 5. 0 OOOE-  07,  5.  00 0 OE-B 7 , 5 .'00 OOE-07 , 0303 3 0 

35. 0 OOOE- 07j^^.  0 M OE- 0^5.  OOOOE- 37,  5. 0 0 00  Er  07,^5.0000?- 07,5. 108  OOE-07, 030340 
45^bb0  0E-07,5.b00  0iE-0  7,5.  0 ObOE-of  , 5. 0000  E-07,  5. 000  OF-0  7 , 5. 000  OE-07 ,0  30350 

55. QOO0E-O7.5.OOOOE-07,5. 0 POPE- 37 ,5.00 OOE-07.  5. OOOOE-0 7.5.100 OOE-07. 0 303 6 0 

65.0  0O0E-07,5.0a0  0E-0  7,l.  0 OOOE- 06 , 1 .60  OOE-06,  2.  2000E-06 , 2.I9000E--06, 0 303  2 0 

73.3  OOOE-08,4.4  00  0E-08,4.5  000E-a6,4.30  00E-08.  4. 2000E-08.4.I1000E- 08/0 3038  0 

- _* 030390 

0*7*  JWOg/4.3974E-03,4.3992E-03. 4.4009E-03.4.4824E-03.4.403BE-03.  030400 

24.4  091E-OS,4.40  6SE-b3,4.  4 08  3E- 03, 4.41 34E-03,  4. 4238E-03,4 . 438 lE-0  3,  83041 0 

34.4  55«F-n3.4.4  775F-0  3.4.  5 ni9F- 03 . 4. 52  77F-n  3.  4.  5553F- 8 3. 4-1^3  29F-n  3- n 304  ?n 


un 


4%.3lOVe«0  3*<t.6360E-0  3,4.  659eE-0;i  *4 .68  IQ E-03(  4 .6999C«B3  f 4 
54. ? 391E-0  3,4.r394E-0  3.4.  7474E-01.4.y536E-03.  4. 7583E-B3.4 
64.7  646E*Q3(4.7667E-0  3,4.  76a7E*03,4.77Q?E-03,  4.77iaE>r J»4 
_74. 7 7E3E-t3.4.77eQE-B3.4.7733E-03.4.r7  33E-03.4.  7737E  - Q 3 . 4 


OAr>  JCFE/4.0  3S3E-?9.6.79?0E-?6..4.651tE-7  3.1.6649E-7B.3. 


23.3930E-16tl.5605E-t4»4. t 950E- 13 , 6.SS64E-iet 6 . ? 006E-11 » 3 
31.S095E-09|5  . IMaE-  Oij  1 . 4 746E-0S.  3.3557E- 08i  6_. 8 312E - |i il 
41.9576E-a7,2.ai27E>a7,3. 7Qi0E-07.4.61Q9E-07,5.444lE-a7*6 
56 j 7778E-B7,7.3306E-07.7.  6765E- Oy . 6.4524E-07.  9. 0977E-07 tJ 

61.0  69 3E-d6,1.164?E-06,l. Z667E-06,  1.3719E-a6,  1.48  31E*a6»l 


['EXlVTiVEH 


0»r*  JCF3/7.4654E-2  7, 3. 0 379E-Z4. 1 . 5798E - 71 . 3 . 4449E- 1 9 . 5. 
24. 3 03 OE- IS, l.S292E-13,4. 6d?eE-12, 7. 0755E- 11 , 6 . 0 30SE-10 , 3 
31.3  476E-08|4.4144E-08, 1. 19 16E- 07,  2 , 74 OJE- 07, 5. 511 4E - 0 7 , 9 
41.5  742E-06,2.?016E-06,3.  0 398E-03 , 3.8463E- 06,  4 .5932E- 0 6 , 5 
55.7977E-06. 6.2725E-06.6. 6 895E-0&.7.0691E-06.  7.42a9E-a6.7 


68.140  5E-06,9.5016E-0  6,8.86S6E-05,9.2254E-06,  9.59  06E-06,9 

7 1 . 0  2 38E - 05 , 1 . 05 1 4E -^5, 1.  0 7S2E- 05, 1 . 0962E- 0 5,  1 , 1 1 4 5E  - 0 5 , 1 


DATA  M2O/2,2717E-0  2j^l,_iai2E-Q2,6,75  29E-0  3*.Li548  3E-0i,l, 

24.0  172E-04, 1.0814E-0  4,2.  1 832E- 05, 4. 20 OOE- 06,  4.2  00  0E-06,4 


44. 2 00 OE- 06, 4.  20 0 OE-06 , 4. 2 OOaE-06 , 4. 2000 E- 06,  4.200  0E-a6,4 

54 . 2 0 0 0 E_-  0 6,  4 „2  0SJEtl6x4i.il3  Q Er.  Q Aj  ? U 0 E-  Q ^4,.  20  Q at-  B 6 ,4 

64.2  00  0E-06,4.2  00  0E-06, 3. 6 flOOE-09,2.90  OOE- 06,  2.600  0E-06,? 
71.}OO0E-O6,1.3  0OOE-O6,l,  O^OOL-Mj  6t7  lOOE- 07,  4i4q  Q OE  - 0 7 , 2 


DATA  JH20/ 


24.215  0E-21,5.6966E-19,4.4976E-17, 1,3713E-15,  1.828  0E-14,1 
37.8  39  2E-13,3.3426E-12,1.  1276E-11 , 3 . 09 3BE_- 11,^  7 . 0234E - 1 1 , 1 
42.3139E-10,3.4800E-lb,4. 7 399E- 1 J , 5.9999E-10, 7 . 3020E-10 ,8 
51.0725E-09,1.4382E-09,2, 0754E-0j, 3.0979E-09.4.5909E-09.6 
69.0177E-09, 1.1798E-08,1. 4922E-0i,  1.8869E-08,  2.6066E-B8 ,4 
77.4037E-08.1.3761E-07.2.4305E-07. 3.8386E-07.5.8138E-B7.7 


DATA  J03/2.9  315E-05,  2,969  4E-05^3. 0 051E- 05t3x0  37_3E-a5,3_.0 
2 3.0 96 OE- 05, 3.1279E-05,3.  1686E-05, 3.28  91E-05,  3.5506E-05,3 
34 . 5423E-05, 5.408  lE_-:05, 6.  63J  SJ-^5  ^ 8.37  74E-05.  1.094  OE  - 0 4, 1 
4 2.0  226E-04,2.819  3E-04,3.9934E-04,5.7774E-04,  8.5549E-04,1 
51.733  3E-0  3.2.  2239E-B 3, 2. 676eE- 0 3,  3.0877E-03.  3.4194E-03.3 
6 3.9  344E-03,4.  12  30E-0  3,4.  2 709E-03 , 4 . 30 59 E- 03,  4.4786E-0  3,4 
74.5  668E-0  3,4.5906E-0  3,4.6£55E-03,_4,6146Er  03 , 4« 620  4E-0  3 .4 


DATA  J02/2.9970E-31, 3.1074u-28«1.4t26E-25.2.5237E-23.2 
21.7903E-19,6.5744E-18,1. 4959£-li,2.i357E-l5, 1.73S4E-14 


45.2363E-11,8.2376E-11, 1. 2038E-13,1 .&697E-ia,2.1067E-10 
5 3 , 2 24  2Er  I Oi 3,  695  t4LAl477tr  1 U 4t.5? ^iE.- to il.  10  0 3E- 1 0 

66.688  7E-10,7.6743E-10,8.8  054E-13,1.0  0 76E-09,  1. 1S68E-09 
71.5628E-09.1.8491E-09.2.1997E-09.2.6087E-09.3.0475E-B9 


.69.91E-21,  030JSO 
,9.'2769E-14,030S90 
J^7_2t-AljQ3Q2Q0 
,2.171  55E-10 ,030910 
,5.I6584E-10, 030920 
,l.l3310E-09, 030930 
,3.%791E-09/030940 
- - 030950 


I 


.'7159F-03, 030430 
«i7Ll9E-a3, 830440 
.l772aF-03, 030450 
.t7737E-83/030460 

030470 

V437E-18.  03048 


.fS744E-10, 030490 
.I2268E-07, 030500 
.163SE-07, 030510 
.184691-07,030520 
.ISB52E-06, 030530 

3!15,4 

- 030550 

0eB8E-17,  030560 
.S214E-09, 030570 
.6385E-07, 030500 
.'2451E-06, 030590 
-06,03060 


.I9197E-06, 030610 
.11297E-05/030620 

- - - 030630 

2.747E-03,  030640 
.l20a0E-06, 030650 
.l2Q0nE-06. 030660 
.2000E-06, 030670 
.2B00E-q6, 030680 
.i3a00E-06, 030690 
.'9aOOE-07/030700 

3071 

3072 


.I4238E-13, 030730 
.I3649E-10, 030740 
,t7195E-10, 030750 
.I5824E-09. 030760 
.llOnOE-08, 03077  0 
•_86a5E-Q7/03O7SO 

- 030790 

674E-05,  030800 

‘.'9544E-05,  03091  0 
.t4b73E-04, 050820 
.2515E-03, 030830 
.'6993E-03. 030840 
.tS289E-03, 030850 
-'6242E-03/030860 


1 9.76E-21,2.00E-21,38»0./ 

DATA  QCF3/  27» 0. , 2. 41E-ia , 1.80E- 18 . 1. 13E- 18, 6.56E-19. 3 
1 1.52E-i9,6.4bE-2B, 2.47E-20, 1.0aE-2a,  36*8./ 

OAf  A QCCL4_/2  7*q,i3._36E- l84l._36£^iej[7j.3_3e-li,6,92E-lJ, 
1 4.54E-19,3.blE-19,1.75E-19,7.aOE-2S,~36*a.7 

DATA  QCM3r./79*a.  .S.SE-19. 3.SSE-1  a.  1.A0F-tQ.7.  1. 


6.25E-19, 


2 9.8SE-21,3.42E-21,9.1BE-22,2.38E-22,5.00E-23,37«0.7 
DAfA  QC1.N03/28*B..8.0E-18.  5.3E-18.3.5E-18.I.4E-1B.  3.4 
2,3. 2E-18,3.2E-18,2.3E-18,  1.6E-18,i.^E-18,8.4E-19,6.SE- 
_3  4. 2E-19.3.8E-l9i2.6E-t9i2. 2E-19 , 1 .6E-19.1.3E-19.8. 5E- 

4 3. 8E-20,S.OE-2a,2.3E-20, 1.6E-2D,l.^E-20,8.8E•^l,6.4E- 

5 3. 1E-71.2.6F-21.7.2E-21.1.7F-21. t .1 F-7 1 . 7. 1 F- 22. «» I.  / 


illl-2Qi a5J)960. 

030970 

.49E-19i  030980 

030990 

6.25E-19a  031000 

031010 

ai£=24j 1110  20 

031030 

E^8t3,SE-18031040 
19,4.7C-r9,  03105  0 
2.Qj6.3E-20i  031060 
21,4.6E-21,  031070 
031080 


I 


fn  » 


OAF  A QH?0/  8*0.»  3./C-17, 3.7E-17, 3. 7E-17 • 7* 3.7E-1 A, 7.8E- 18, 

2  2.SE-18.1. 7E -17,8. 9E-1 7,3, 7E-t8 , 5 . QE-19 .».BE-t8 , 1. DE- 18 . 1. OE-19. 
3"  3.0E-2  0,4.0E-20,7.0E-20,9.0E-20,  l.lE-19,l.lE-19,l.DE-i9,8.6E-20, 
4 3.3E-20,l.SE-2  0,6.0E-21,2.9E-2t»  1.1E-21.3.0E-22,  1.0E-22..3.  2E-2S, 
9 l.SE>23, 7.6E-24,S. 0E-24,2.0E-24,6.aE-25,4.0E-29,28»S.7 
OAT  A QMN03/2B*0. .1.32E-17.9.10E-t8.9.5E“18.?.5SE-lB.9.7E-19. 

2 3.28E>19,1.44E-19,8.91E-20,9.63E-20,3.74E-!0,2.60E-20,2.10E-28, 

3 1.9SE-2  0,1.94E-2  0,1.90E-20.1.8aE-20.  1.6  3E-2  0. 1.  4 0E-28.1.I14E-20. 

4 8.77E-21,6.34E-21,4.26E-21,2.7SE-21,1.68C-21,9.9  IIE-22,4.i76e-22, 

5 1.8BE-22,1. 00E-22,1.00E-23.1.00E-24,l.BaE-24.13»0.7  _ 

DATA  QH202/28*8.,1.5E>18, 1.2E-1S,7.$E-19,6.2E-19,4.9E-19,4. 3E-19, 

2 3. 8E-19.3.4E-19. 3. OE-19 . 2.4E-1?. 1.9E-19,1.»E-19. 1.3E-19. l.lE-19. 

3 8.4F-2Q,6.SE-20,S.3E-2a,3.8E-2a, 3.0E-20,2.SE-28,l.Si-?0,1.4E-20, 

4 1.1E-2  0,8.1E-21 .5.8E-21  ,3 .4E-21 , 2.7E- 21 , 1. 9E- 21 . 1. 3E-2 1 ,8.  SE-22 
■5  5.  lE-22,3.8E-22,2.5E-22,1.3E-22,1.0E-2  2,7.3E-23,5.4E-23,3.4E-23, 

6 2. SE-23,1.6E-23, 1. 1 E-23 , 6.9E-24 , 1 . lE-2 4. 8. BE -2S,  0..B.7 _ 

OAT  A QH205/  32*  B . , 4 . 7E- 18 , 3. 2E>18 , 2.  BE- 18 , 1. 3E-18 ,9. &E -1 9 ,7 . 8E-19 
28.BE-19,».8E-19.3.7E-19.3.1E-19,2.9E-19.2.1E-19.1.7E-19.1.3F-19. 
3S.9E-2B,5.1E-20,4.2E-2a,3.3E-20,  2 .5E-2B , 1 .9E-2B, 1 .3E-2 8, L.B3E-20, 
47.5E-21,S.aE-21,4.BE-21. 3.4E-21, 2. 7E- 21 , 2. 3i- 21 , 1 . 8 E-2 1. t.4E- 21. 
9i.BE-21,7.4E-22,4,7E-22, 3. BE-22, 1 . 3E- 22 , S*0./ 

0 A r'A“QHC L / l“j • B T, TTriE  - 1 8 ,2.81E'^18, 3.45EM  8^ 378 2E - 18 , 1. 32 E -1  8 ,“ 

12.4  8E-18.1.63E-18.1.a9E-18.9.8dF-19.3.13E-19.1.45E-19.8. t8E-20. 

2».5bE-2B,9.93E-71,3.95E-21,1.37E-21,4.8BE-22,37*B.7 
OAT  A QHOCL/49»Q..6.3E-2B.7.9E-2B.9.9E-2  0.1.BSE-19.1.19E-19. 
ll.25E-19,1.35E-l9,1.27E-19,l,l9E-19,l.B7E-19,9.5E-28,8.8F-2fl, 

2 7.9  0E-2B.6.3SE-?a.4.8  0E-2B,3.8BE-2B,2.S  BE-29. 2.6E-28, 2 .4E-2B , 
37.BOE-2B,l.&BE-20,i.20E-20,4,80E-2a/ 

DATA  aM20/8*B..5.8E-18.4.BE-18«9.BE-18.4.BE-18.5.BE-18.4.iaE-ie.  .. 
ll.4E-17,6.0E-18,7.aE-18, 3 .2E-18, 7 . OE-19 , 5. BE -19, I . 8E-1 8 , 2.2E- 18, 
23.SE-18,4.8E-18,4.3E-ia,2.6E-18,  7.9E-19 . 9. aE-20. S. 2E-2 1.  S.3E-22. 
36.3E-23,41*B./ 

OAT  A QN0  2/48»B..6.77E-2a ta.92E-2  0,l«09E-19.1.67E-19. 

11.8  3E-i9,2.19E-19,2.3  9E-19,2.94E-19,2.91E-19,  3.14E-19, 

23. 23E-19. 3, 43E-19. 3.  1 IE-19. 4.3/;- 19. 3. 9 OE-19. 9. 37E-1 9. 

34.)7E-19,9. aaE-19,9.93E-19,9.79E-19,9.49E>19,9.62E-19, 
4fc.»6E-19,8.66E-19/ 

DATA  CLX71.1E-9,9.7E-1B,  3.1E-10,  Ij.  7E-10,  1.  2E- 19,8ji  4i- 1 1,  1:.1E-1B, 
11.3E-10, 2.4E-lB,6.BE-ia, 9.9E-id,  1. 3E-9, 1.6E-9,1.8E-9,2.BE-9, 
22.2E-  9.2.3E-  9.2.3E-  9, 2.4E-9 .2. 4E-9 .2 . 4E-9 , 2.4E-9. 2. 4E-9. 

32.4E-  9,2.4E-  9,2.4E-  9, 2.4E-9,? . 4E-9 ,2 . 4E-9, 2 .4E-9, 2.  4E -9, 

42.4E-  9,2.4E-  9,2.4E-  9 , 2 .4E-9, ? . 4E-9 , 2 . 4E-9 , 2.4E-9, 2.  4E-9, 

92.4E-  9,2.4E-  9/ 


DATA  OA23/?.8?8Ea3,9. 371 E B2, 1. 192E B2, 6. 33 7E3 1 ,6. 869^01 , 

1 9.>>79Eai.9.9BSE01.9.04BEB1.4.911E01.  4.  314E0  1 . 2.667- B1 .1 .4999 E B 1 , 

2 6. 826EaB,9.7B6E0B,  3.974EaB,2.2S8EaB, 1. 148EBB , 8 . 223E- B 1, 4 . 219E-0 1 

3 3.  022E-01tl^958E_-aj,t7.9ME-02,9.7  04E-0_2,2.929E-0  2,2.B99F-0  2, 

4 1.  a78E-8  2,9.98BE-B3,4.  B14E-B  3,2.B78E-a  3, 1.4  99E-a  3,  7.  7 39E.-a4, 

9 4.  BB3E-04,2.8BBE-B4,1.49BE-B4,1.  0 72E-B4,9.99  0E-0  9,2.144E-09, 
f>  1.  332E-a9,9.144E-06,S.19CC-B6,i.234E-B6/ 


ENO 

LIBRA9V(LIB,NEN) 
AOO(»,9AIN,  AC«1) 
00(*,LG0) 

INISH. 

NORUN. 

■ 


DXOXIDX  ////  END  OF  LIST  ///f 

iTXOXIOX  ////  ENO  OF  lTTT  //77 


031090 

031100 

03111 B 

031120 

031130 

031140 

031190 

031160 

031170 

031180 

031190 

031200 

031210 

031270 

031230 

031240 

031290 

0 31260_ 

031270 

031280 

031290 

031300 

031810 

131320 

031330 

031 340 

031350 

0313SO 

031370 

031390 

031390 

031400 

031410 

031420 

031430 

03144.0 

031450 

031460 

031470 

031490 

031490 

031500 

031510 

031520 

031530 

031540 

031550 

031560 

031570 

031590 

031590 

031600 

031610 

031620 

031630 

031690 

031660 

031670 

031680 

031690 


103 


rotott 


CMSP  Chlorine  Model  Study  Program 


70*022 


ro»073 


1 

i 


107 


Cl.  Subroutine  INITAL  - Short-lived  Species 


c« 


subroutine  INITAL 


Calculate  initial  concentrations 
from  first i)uess  mixing-ratios, 
using  scaling  factors 


Initiaii/e  variables  for  the 

system  of  simultaneous  equations: 

I 

a 

and  set 

Yj  “OH 

Y4-O3 

Y3  " H02 

Subroutine  PCLOX 
to  calculate  concentrations  of 
CL,  CLO,  and  HCL 


Return 


Subroutine  PNOX 
to  calculate  concentrations  of 
N02,  NO.  HN03.  N03,  N205.  and  CLN03 


Return 


Do  concentrations  of 
NO.  N02,  and  HN03  converge? 


70«02« 


r ^ 


C3.  Subroutine  SOLVE  (continued) 


111 


I 


TOWIS 


D1.  SubroutitM  CFLOW  • Long-lived  Species 


(ZElI) 


For  necessary  species,  sot  up  arrays 
of  concentrations  at  each  of  81  1-km  levels 
from  41  2-km  levels,  by  interpalation 
using  subroutine  RINTER 


For  each  species  in  order : 

N20,  NOX,  CH4,  FC11,  FCt2,  CH3CL,  CCL4 
CLX, H2 

Call  CSPEC  (p.  0-2) 
to  calculated  the  81 -level  array  of 
mixing  ratios 


For  03,  call  CSPEC  to  calculate 
mixing  ratios  for  31  k-km  levels 
up  to  and  including  30  km 


No 


Call  REPCN  ■ have  species  CLO  and  N02 
converged  in  region  30  km  and  below? 


Yes 


Calculate  concentrations  of 
NOX,  CH4,  CLX,  H2  to  80  km 
and  03  ••  30  km 


11^ 


70»02« 


APPENDIX  C 


SAMPLE  TEST  CASES 


Case  1 Absorption  Only  (ISCATT  = 0) 

(all  default  values)* 

Case  2 Multiple  Scattering  (ISCATT  = 1) 
(all  default  values)* 

Surface  Reflectivity  * 0.2 


*Exceptions:  ISWITCH  = 0 (fixed  sun  angle) 
RFll  * 8.30  E + 05 
RF12  « 1.13  E + 06 


L 


114 


LA5T 


L4^T 


o 


I 


7 

C 


ft 

Ui 


«£)  O 

IP 

IP 

IP 

IP 

b- 

W> 

U> 

U 

UJ 

UJ 

Ui 

4 %0 

UI 

P 

P 

P 

P 

P 

p 

P P 

P 

P 

P 

UJ 

OJ 

<43 

lO 

<43 

*o 

'i) 

Ui 

*C 

kO 

<o 

X 

j 

O 

>9  09 

o 

o 

o 

9 

c 

«9 

9 

e 

.3 

9 

o 

•9  9 

o 

o3 

9 

o 

O 

9 

9 

O 9 

9 

o 

O 

9 

e 

9 

o 

O 

o 

.9 

7 

9 

9 

o 

o 

c 

♦ 

♦ 

♦ ♦ 

♦ 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

> 

O' 

UI 

UI  u 

UJ 

u- 

111 

19 

U' 

O UI 

b 

• 1 

U UJ 

U'  O' 

J 

u 

lO 

ti 

Ui 

9 

UI 

U'  ii 

b 

O' 

UJ 

Ui 

UJ 

0 

UI 

Ai 

'U 

Ui 

U 

UJ 

9 

UJ 

b 

’4J 

tr 

«4 

O'  K. 

o 

0 

vO 

4* 

Pi 

C9 

O 

V4  AJ 

O' 

O 

O 4 

IP 

AJ 

O' 

4 

v4 

4 

O' 

•O  Ip 

IP 

v 

«n 

« 

O' 

v* 

P 

vJ 

to 

« 

A 

to 

*P 

p 

P- 

a 

(\l 

If 

ts. 

pj 

to 

PI 

4 

•o 

O 

iP  iO  O 

IP  O* 

sO 

P 

.0 

Pi 

0> 

o 

v4 

N.  IP 

4 

K 

4 

IP 

«0 

IP 

sO 

iP 

o 

p 

9 

9 

9 

kO 

vJ 

a 

in 

m ¥ 

.4* 

p 

'-I 

4 

O' 

t^ 

A 

o 

4 

« 

o> 

tP  »4 

p 

tn 

*4 

PJ 

p 

O 

P IP 

to 

*4 

•9 

Vi 

O' 

si) 

to 

4 

c 

9 

IP 

v4 

A 

IP 

O 

fO 

(\l 

•4  t4 

K 

9 

p 

w* 

Pi 

A 

P 

4 

-I 

•4 

NJ 

4 il 

o 

w4 

H 

Pi 

PJ 

PJ  PJ 

vt  v4 

v4 

V4 

v4  O' 

P 

sO  IP 

4 

4 

4 to 

A 

Pi 

v4 

<\ 

ON  l^ 

9 

4 

f 

4 

9 

4 

» 

to 

¥' 

to 

tP 

■O  P 

to 

to 

Pi 

PJ 

PJ 

PJ  Pi 

Pj  Pj  Pj 

P' 

4 

v^ 

v« 

V4 

vi 

e 

U 

o 

O 

C\i 

IV 

4 <\i 

• \l 

P 

r 

■ V 

kV 

Pi 

PI 

p 

Pi 

Pi 

4 

Pi  iii 

PJ 

PI 

(V 

P 

PI 

PJ 

iV 

Pj  Pi 

Pt 

Pj 

9 

P 

Pi 

p 

Pi 

P 

P. 

Pi 

p. 

P 

IV 

Pi 

♦ 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

a 

4 

4 

4 

a 

X 

k4> 

U> 

U.  .J 

• ki 

Ui 

Ok 

Ui 

9 

U 

Ui 

U 

U 

Ui 

U' 

u u 

U 

UI 

9 

Mi 

u 

U' 

U. 

U.  u< 

Ml 

U 

U. 

Ik 

U 

9 

s9 

uJ 

u 

UJ 

Ui 

mJ 

Ui 

u 

»• 

•0..  O 

»»> 

P’ 

s.. 

t*' 

O 

P 

4 

4 

PI 

o 

O' 

o 9 

Pi 

ip 

P 

<r 

to 

to 

U 4 

v4 

tr 

Vi  Ai 

A 

fp 

t 

T* 

O' 

o 

tn 

IP  Pi 

9 

r 

• P .P 

IP 

O* 

Pi 

♦ 

♦ 

iA 

v« 

A 

p 

c 

A or 

IP 

p 

IP 

If 

p 

0 

p 

K to 

•4 

p 

IP 

«■ 

IP 

A 

P 

c- 

P 

v4 

IP 

4 

kP 

A 

c 

w 

o o 

Pi 

Pi 

IS. 

4 

4 

PJ 

PI 

P 

O' 

nO 

p r 

IP 

O' 

• 

p 

o 

vT 

4 O'  IP 

A* 

v4 

C. 

4 

vi 

4 

to 

P 

A 

IP 

« 

tr 

tr- 

Vi 

fT 

- 

« 

.D 

4 

lot 

P 

O' 

9> 

4 

to 

Pi  CNJ 

-I 

^4 

40  t£ 

IP 

4 

A 

P V4 

- 

v4 

O' 

a" 

IP 

4 

to 

P 

'■ 

V4 

O' 

sO 

4 

•O 

P 

o 

m 

«Lr  c 

« 

O 

«> 

<« 

•O 

to 

4 

« 

« 

X> 

« « 

P 

P 

h 

P 

p 

o>  o>  X*  iC 

«0  IP 

IP 

IP 

IP 

IP  IP  IP 

4 

4 

9 

4 

4 

4 

4 

»> 

w* 

v4 

•4 

v4 

.4 

vt 

4 

«4 

4 

v4 

AI  -4 

v4 

v* 

~4 

V4 

v4 

v4 

»4 

v4 

.4 

v4 

v4 

v4 

v4 

v4 

vs 

v4 

vJ 

v4 

vs 

» 

♦ 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

a 

Ui 

UJ  ui 

U- 

Ui 

Ui 

UI 

Ui 

U> 

ui 

UJ 

Ui 

U 

UJ 

U 9 

UJ 

u 

Ui 

u. 

Ui 

Ui 

'uJ 

Ui  9 

b 

Ui 

uJ 

w9 

UJ 

Ui 

UJ 

■ 9 

U 

UJ 

9 

Mi 

J 

b 

b 

ir> 

K> 

1*  (\i 

K 

«p 

Pi 

fu 

4 

P 

IP 

t 

O' 

P 

«> 

A C 

e 

9 

%£ 

A 

u. 

•4 

AJ 

ip  tr* 

Pi 

C! 

ITk  Pi  O' 

« 

4 

4 

4) 

s9 

o 

«4  • K tr 

O' 

o 

O 4 

9 

«P  <0 

to 

«c 

P. 

to 

O IP 

Pj  o 

0 

v4 

o 

d 

e 

lO  u 

PJ 

o 

P 

tA 

4 

« 

*0 

4 

O'  o 

v4 

P 

v4 

c 

O'  ► 

4i  IT 

4- 

PI 

T 

O 

t 

iO 

p 

a 

0 

If 

P vJ 

PJ 

O' 

kO 

e. 

p 

IP 

c c 

4 

V 

A 

P 

tn 

to 

<o 

v4 

p 

4 

O 

O' 

PJ  iO 

m 

O’ 

• a 

«r 

<r 

O’ 

4 

• 

¥ 

o 

i. 

9 

••' 

pi 

vl  Vi 

t 

4 

p> 

*4 

r4 

o 

4 

A NJ 

«-< 

c 

sO 

9 

P 

' 

vJ 

t 

UN 

9 

A.' 

r 

- 

■4 

Pi 

Pi 

p 

p 

ri 

iNJ 

p 

P.  PI 

p 

P 

v4 

1 

Ci  3 

« 

9 

o 

(P 

C 

0 

o 

P 

r 

o 

a 

<o 

• 

« 

a 

«i4 

V 

^4  ^ 

w 

«-< 

VO 

«4 

w 

« 4 

-4 

Vi 

*4 

V 

» V 

■ 4 

v< 

V' 

V 

v« 

*4 

V • 

o'  V 

V 

Vi 

V* 

Ui 

c. 

c 

€ 

O 

o 

.9 

c- 

k 

c 

c 

c 

« 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

♦ 

4 

4 

4 

♦ 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

a 

> 

U 

u 

i>  U' 

u 

Itt 

Ui 

<t 

t. 

U 

u 

u 

UI 

U 

1 

Uj  U 

U 

1 

9 

1 

U 

Iti 

UI 

I Ui 

UJ 

b 

u 

U 

1. 

b 

u 

u 

1 

b 

b 

UJ 

b 

u. 

t 

J 

4 

w C 

« 

*4 

J' 

P 

P> 

4 

4» 

p 

9 

v4 

9. 

9 P 

O' 

P.  «>  o 

<0 

4 

to 

O t 

Pj 

• 

V. 

A. 

U) 

u 

O 

9 

vs 

Pi 

to 

P 

p 

p 

o 

o 

fn 

r\ 

IT  IP 

kp 

r 

P 

P 

f 

on 

p 

« 

•O 

• A 

Pi  O' 

b 

p 

t4 

O' 

40 

•o 

c 

«0  P 

o 

C 

Pj 

IT 

p 

o 

IP 

9) 

4 

P 

9 

4 

AN 

p 

u 

<VJ 

c 

O P> 

-4 

>D 

C 

IP 

9 

P 

9 

9 

4> 

C 

iP  P 9>  P 

9 

kV 

A 

A 

O'  p « 

sO 

« 

9 

PJ 

• p 

v4 

O 

vJ 

9 

sO 

v4 

P 

A' 

A 

Pi 

.% 

4 ^ 

4 

u 

P 

P 

9 

A 

A IP 

4 

••  J 

►I 

- 

iP 

"O 

PJ 

4 

IP  p'* 

J 

.4 

v4 

«o 

IT 

r 

to 

>9 

- 

<r* 

sT 

♦ 

A) 

V 

PI 

>C 

*i> 

4) 

«> 

4 

o 

• O 

■A 

lA 

> 

A 

IP 

if 

IP 

f 9 

9 

9 

4 

h • 

A 

o 

A 

to  AJ 

A) 

to 

A 

to 

O 

A 

to 

to 

AN 

A> 

O 

A 

to 

A 

to 

j 

c 9 

k 

c 

9 

o 

O 

9 

c> 

k^ 

Ci 

o 

Ci  U 

r*i 

9 

9 

C9 

C. 

•9 

“N 

o c. 

1 

c 

C-s 

u 

'Y 

c 

k 

CJ 

Ci 

C 

• 9 

C. 

O 

cs 

u 

Ui 

9 Ui 

Ui 

il 

Ui 

Ui 

U 

U 

u 

L 

W 

U 

b 

k«i  J 

UJ 

kJ 

>9 

u 

9 

w 

l> 

UJ  U 

■tJ 

u 

u 

b 

9 

u 

kll 

UJ 

sAJ 

1 

UJ 

sll 

<9 

U 

o 

'O 

m (A 

«4 

c 

O' 

• A 

"S 

O 

4 

9 

O 

4 4 

*f 

« 

sO 

•n 

4 

C' 

4 

p 

t 

AS 

A 

*o 

tr 

O' 

A» 

Ip 

O' 

sT 

v4 

9 

P 

»o 

► 

t 

N.  ■ 

O' 

m 

♦ 

o 

r 

ir 

IP 

-A 

*p 

e 

<T* 

C-  4 

Pi 

•A 

A 

A 

O 

r 

«4  to 

P 

ir 

A 

nP 

A- 

•o 

r 

AJ 

>o 

4 

IP 

n 

• O 

•P  P 

sT 

«» 

.4 

• 9 

4 

0 

r 

w4 

1 

o <o 

A 

o 

v4 

PJ 

o 

4 

O' 

t p 

o 

A* 

Al 

A 

4 

4 

9 

IP 

If 

IP 

A 

IP 

IP 

IT 

IP 

• 

« «c 

■ 

« 

o 

O' 

• 

4 

• 

4 

1 

U 

V i « 

I* 

J 

o 

- 

v4 

p. 

•\J  to  ¥ 

•o 

t 

9 

9 

9 

9 

f 

9 

9 

9 

9 

9 

9 

t 

4 

4 v4 

c 

4 

\i 

C 

O 

O- 

« 

P 

P 

P ,n 

o 

sf 

0 

P 

1 

iT 

fi 

i>  u 

sO 

sT 

3 

sT 

O 

9 

iT 

O 

0 

.P  sp  iT 

• P 

*r 

vO 

(Ni 

Pi  <v 

4 

•4 

y* 

4 

Y 

r 

o 

C 

> 

i9 

•3  O 

J 

•> 

o 

e» 

O 

k9 

c 

O A 

rv 

c 

A 

o 

A 

C' 

o 

o 

9 

O 

■9 

T 

> 

o 

o 

Ik 

tJ 

., 

ll  UJ 

li 

U 

J 

1 

il 

it 

UJ 

III 

kJ 

ol 

Ml 

III  >1 

u 

u 

u 

u> 

•O 

■ it 

... 

u 

u 

Ui 

ii 

UI 

u 

9 

UI 

lU 

li 

Ui 

1(1 

9 

u 

c 

c 

4 

J'  *4 

.9 

O) 

O' 

9 

9 

•i  O' 

<v 

P» 

4 

a 

O Ml 

sk 

9 

9 

t 

•J 

4i 

IM  AA 

p 

o 

Pi 

v> 

p 

s9 

k9 

P» 

9 

A 

vs 

tv 

O' 

r.. 

-k 

r* 

•f\ 

NJ  C 

O' 

•O 

Pi 

o 

.0 

o 

ir 

*9 

M O 

A 

NJ 

<r 

A 

V 

o 

A 

A' 

« 

4 

v4 

O 

*o 

4 

7 

t*.' 

i 

r»i 

to. 

4o  *» 

9 

t 

► 

Ci 

P 

a 

p 

4 

0 

A 

tn  ts, 

o 

P 

9 

vs 

4 

P 

e 

9 9 

o 

tr 

C.' 

Pi 

■A 

9? 

c 

to 

1- 

P 

O' 

sTl 

• 4 

Pi 

P 

•> 

^ 

*o  t 

- 

J 

V 

1 

PI 

p I 

t 

«' 

r 

"H 

1 

iP  r4 

4 

P- 

o 

h 

4 

9 

'A 

> If 

A 

l» 

sT 

IP 

sO 

<4 

A 

p 

A 

- 

A 

IP 

tP 

a 

«p 

r 

>> 

»\  r 

» 

V 

9 

J 

r4 

« 1 

c 

a 

4' 

9)  M 

P 

P 

^ 

r 

P 

P 

fM  (S. 

P 

J 

A 

P 

*43 

sO 

U' 

u 

sT 

43 

U 

si; 

9 

f'- 

f <M 

PI 

'J* 

* 

* 

Y 

C 

O t 

*"* 

4 

• 

Y 

C -A 

A 

A 

O 

** 

■* 

o 

O 

r'. 

9 

c- 

9 

9 

9 

Ck 

c- 

tt* 

j 

J 

UJ  .1 

U 

u 

u 

It  1 

U 

il 

.1. 

h 

1 

.1 

Ui  II 

ii 

•kJ 

i. 

4. 

u 

U 

9 

u 

Mi 

Ui 

Ui 

u 

-9 

b 

u 

9 

UI 

C 

II' 

u 

j 

*0 

.!>  r 

P- 

,« 

p 

t 

PJ 

P 

.(•» 

■A 

o 

O V 

<1 

u 

s 

9 

A- 

• p 

4 

|i  r 

.T> 

p 

o 

.«• 

o 

4 

PI 

ip 

t 

'is 

V 

1' 

r4 

v4 

cr 

• t 4 

IP 

r>  • 

t. 

Ip 

Pi 

O'l 

4 

/4> 

II 

1 <« 

4i 

* 

f 

P 

vs 

AS  *4 

r4 

V 

V 

9 

A 

. 4 

A 

p 

A 

iO 

A 

•P 

O 

> 

* 

— 

¥ m 

P 

-T 

14 

•■^ 

P 

" 

*1 

» 

p 

P A 

P 

4 

P ~4 

!• 

■» 

f* 

9 

lO 

>4 

>4 

Al 

to 

.4 

.4 

♦ 

IP 

- 

INJ  -4 

n 

"'■ 

•• 

p 

•' 

• 

r 

... 

■• 

•'  •' 

P 

... 

P 

9 

9 

M 

iii  iT 

" 

A 

A 

a 

p 

4 

- 

• 

- 

" 

- 

, 

1 

IP  l( 

.» 

U' 

u 

ir 

IP 

ii 

u 

xt 

9 

r 

J 

> 

!•> 

A A 

A> 

A 

A 

‘i 

A 

■») 

A' 

A 

«> 

r.  1 

O 

to 

A 

r 

to 

•* 

Cl  1 

e* 

t 

t 

7* 

•» 

••- 

1 

T ^ 

c 

y 

tP 

A 

* »_i 

* 

r 

C 

Y 

Y 

Y 

C' 

C 

7 

k. 

. s 

r 

r 

Ci 

n 

Ij 

|.  U' 

I. 

II' 

ill 

>1 

L 

III 

1 

i 

1 

tj  »!' 

II 

t' 

1 

U 

l.i 

. 1 

il 

U II 

il 

1, 

1 

UI 

U' 

o< 

II 

u 

III 

J 

• 1 

U' 

Ml 

1. 

• 

♦ 

. IP 

1 

► 

•O 

tn 

4 

r 

4 

IP 

A 

r 

il 

/»  O 

1 

> 

p • 

/M 

4 

IP 

V' 

t A 

to 

A 

A' 

r 

C' 

•o 

A O 

IT 

sT 

A 

a 

4 

4 

A 

( 

IT 

¥ IS. 

9-* 

9 

<0 

•P 

u 

p 

kA 

o 

T» 

V* 

t4 

ki  -4 

u 

n> 

<r 

9 

*•> 

iv 

U 

t c 

A 

Ci 

r 

Pi 

a 

u 

IP 

p 

P 

f 

V4 

*4 

V 

Pi 

sj 

' 

h. 

« oi 

T> 

0 

r 

r 

•4 

p 

or 

u 

\r 

4 

H lO 

1. 

u 

iT 

^ 

o 

IP 

o 

-f  p 

* 

A ■ 

A 

.4 

♦ 

u 

sP 

IP 

IP 

UJ 

Ml 

a> 

o 

43 

kP 

fo 

•> 

P 

p 

o 

4 

t 

4 

t 

ip 

iO 

P 

.4  PJ 

^ 

IP 

v4 

-4 

NJ 

A 

A1  to 

A 

9 

t 

t 

9 

A 

t 

t 

T 

4 

1 

9 

J 

9 

if* 

»4 

« IP 

to 

o 

r 

p 

*£ 

lA 

4 

P» 

tn 

P' 

PI 

v4  *4 

o 

9 

9 

« CA 

k9 

9 

o 

•J 

p., 

■•> 

n 

y, 

O' 

r 

O 

O' 

O 

O'  O' 

f 

tn 

Pi  i\j  Pi 

Pi 

V* 

•4 

Y* 

4 

Y y 

V4 

4 

• 

y 

y 

y y 

v^ 

• 

r-t 

V4 

'-I 

4 

e 

9 

( 

» 

■N 

R 

s&J 

Ui  Ui 

III 

1 

U 

•OJ 

III 

• 1 

., 

■ <• 

t 

UJ 

U. 

UI  UI 

Ui 

«l 

il 

1. 

.1 

UI 

is'  U 

U 

UI 

Ui 

U 

I.- 

1) 

Ui 

u 

.J 

u 

(!■ 

II 

19 

1. 

tf 

•A  IT  O' 

tv  P 

P. 

♦ 

to 

4 

♦ 

to 

0 

4 0 4 

P 

9 

PI 

P 9 

IP  CN 

O' 

P 

9 

0 IP 

iT 

p 

Pi  4 

M 

a 

O' 

c 

• 

U> 

O O' 

to 

to 

r 

O'  b 

o 

«U 

P 

PJ 

40 

P 

o p 

PJ 

»4 

O'  iO  P 

9 

tP 

9 ^ 

iO  « 

A) 

PJ 

vj 

CJ 

P 

v4 

P 

V4 

O 

Vi 

r O' 

V 

r 

0 

tP  *4 

1*1 

p 

tr 

t 

V 

9 

V' 

oJ 

4 

u 

U 

H «« 

to 

a. 

t 

0 

4 

4 to  nO 

sO 

>o 

ol 

O 0 

k 

v4 

9 

P 

P 

p 

4> 

K. 

»n 

m 

• • 

• 

• 

41 

•o 

p 

4 

4 

Pt 

r- 

WS 

• 

tr 

• 

•J  4 

PI 

M 

•o 

• 

»n 

• 

♦ .4 

4 

lA 

lA 

ip 

A 

IT 

r* 

• 

« 

v4 

« 

Pi 

PJ 

■A 

• 

►“  -y  ^ a o ^ •»#-^*^o‘»oc'rr'.>^»3^r>f^'^r-^o*?*C“o^^oo 

mi  «3C>  ^oc't  oooc.^t  Or-  >oroocoeoooro<>^o  i^-ao-vco  -too 

« ooeoooooeo  i noooeiao.Jta^o»>«oooooooc^ooC'COC)0  t « 

oooooc^ceooc'Oc  cjoooooo>joooeoooooo3  tooooc 

oe  9^000  «r  ocoo^ooocoooo00  30o:99c'ooer'0>ooe 

wrvi.T  AO  »^ 


117 


aoooojj 


t' 

J 

X 


'o  r 

4 

U) 

U>  IfN 

*0 

•VI 

a 

'9 

a 

O'  O' 

« 

c* 

< 

« 

•p 

•r 

0 

9 

« 

« 

« 

« 

«> 

Pa 

K 

|v 

pA 

P 

p 

pA 

7 

7 

P. 

p 

K 

r»- 

IM 

t\i 

\i 

Ni 

4 

•4 

4 

r4 

44 

*4 

Y 

J 

X 

0 

9 

9 

0 

X 

X 

9 

X 

-9 

X 

o 

■a 

X 

0 

X 

X 

0 

a 

•a 

x 

-a 

9 .9 

a 

0 

X 

Ui 

UJ 

u 

uJ 

iL 

u> 

b 

b 

tAi 

bi 

J 

UJ 

b 

bJ 

b 

iL 

b 

J 

u. 

4i 

ui 

bJ 

ui 

Ut 

b 

U 

b. 

bi 

ui 

bi 

b 

iL 

iL 

M 

ui 

b> 

Ut  (b 

u 

Ui 

b 

► 

l|\  fO 

04  F> 

u> 

lb 

u 

mi 

c 

«• 

• 

*r  p 

N. 

IP 

P) 

o- 

«4 

« 

Pa 

« 

4 

fr 

N. 

O' 

Pa 

b 

Pa 

p 

c- 

0 

4 

0 

K »tt 

PI 

Pi 

4 

e* 

F)  ^ 

ro  O' 

4^  ^ 

.•*> 

J 

0 

u 

P 

fVI  CN  (T 

If 

44 

u 

IP 

0 

KN 

44 

tt 

44  O' 

« 

Pi 

« 

4 

.3 

UN 

PO 

PI 

J9  4* 

p. 

PI 

4 

CJ 

p> 

J c 

K 

(Ni 

o 

fv 

l'^ 

K 

O'  C 

o 

■'N 

*0 

•H 

IP 

* 

pi  0* 

4 

^ K. 

Pi 

« 

CD 

O' 

•tt 

P 

4 

If  pp 

0 

44 

to  if  c 

w4 

PO 

1* 

r 

M C 

<VJ 

r 

c 

r 

f 

- 

.J 

44 

p 

<P 

\l 

•0 

4 

IP 

IP 

U 

tf 

P 

f 

r 

c 

- 

.« 

• 1 

•tt 

• 

P 

C (NJ 

p 

tr- 

K* 

« 

<r 

» 

<v 

• 4 

c 

r 

CP 

« 

P 

r 

b 

u 

u 

u 

sT 

tP 

IP 

I- 

b 

IP 

U 

1 

u 

(P 

l( 

U 

u 

k 

b 

UN 

P 

1-  11 

i 

II 

b 

(Ni 

(\j 

CNt 

y 

Y 

♦ 

o 

a 

A ■ 

) 

' 

r 

t. 

« 

• X 

X 

C 

c 

rv 

c 

Y 

< 

c 

C 

C« 

r ( 

<4 

C 

C 

t 

U 

u 

lit 

t 

b 

l 

b 

k 

b 

b 

Ul 

b 

Ui 

It 

b 

l. 

b 

b 

b 

b 

b 

b 

b 

b 

1. 

b 

b 

b 

b 

b 

kti 

.!. 

b 

Ul 

U U 

i 

1 

O' 

U' 

4) 

.T 

., 

• 

O' 

<_> 

« 

o* 

f 

X 

U 

u. 

if 

9 

f 

4 

0 

« 

t 

« 

p. 

rv 

0 « 

A 

) 

49 

10  P 

m> 

P. 

9 

sC 

O' 

K> 

U 

to 

« 

44 

»(N 

r 

44 

4-1  O 

>$ 

^4 

•J 

r«. 

9 

O' 

0 

C 

4 

fp 

O' 

4 

« 

PI 

P 

O' 

(Vi  tf 

0 

Pi  UN 

c 

C* 

Pi  fo 

4 

If 

tt 

g 

N. 

O 

(N 

•4 

C 

♦•N 

tr 

IP 

y 

N. 

4 

(NJ 

0 

4N 

K 

(O 

C 

44 

(NJ 

Pt 

10 

r 

p 

4 

4 

* 

If 

k- 

IT 

if 

u f 

tt 

If 

9 

-y 

f • 

* 

u 

U 

V 

<Vi 

.u 

.t 

1 

•4 

b 

- 

Pj 

P 

b 

P 

0 

' 

44 

- 

tt 

.tt 

44 

- 

' 

4J 

' 

•tt 

-4 

- 

tt 

* 

u 

UN 

u 

UN 

aN 

V 

U' 

b 

b« 

t\  UN 

u« 

b' 

U' 

b 

UN 

IP 

UN 

b 

9 

4 

4 

4 

4 

4 

t 

r 

t 

4 

4 

t 

4 

4 

t 

4 

4 

r 4 

t 

4 

4 

c. 

CT 

■» 

i 

t 

( 

> 

c 

c 

f 4 

c 

c 

c 

3 

t 

X 

a 

0 

0 

CX 

Y 

9 

Ci 

'J 

9 

a 

7 

c 

Y 

0 <4 

c 

f9 

X 

u. 

•4J 

U' 

Ul 

U' 

L 

tti 

b 

b 

b 

b 

b 

• u 

Ut 

U 

b 

!j 

b< 

OJ 

<aJ 

b 

U 

bJ 

b 

ul 

uJ 

1! 

b 

tj 

b 

L 

b 

ui 

b 

UJ 

u 

ui 

AAl 

•O  ft 

•o 

«r 

(VI 

■o 

!/N 

^ 

If 

f 

fp 

Pl 

K. 

0 

flO 

pi 

PI 

•p 

u 

pp 

•0 

P 

r 

Pi 

9 

M 

4 

-9 

tP 

b 

0 

C 

0 

44 

UN  t 

p 

9 

4J 

^4 

4 

r«i 

(Vi 

f 

.4 

If 

o 

I» 

44 

P 

4 

*0 

■P 

,*• 

f.. 

(P 

K. 

• 

tb 

C 

9 

C ' 

r 

K. 

Pi 

u 

m' 

-» 

44 

■VJ 

9 

4 

4 4 

» 

P 

t 

♦ 

t 

J 

t 

♦ 

* 

(N 

tT 

f 

r 

P 

m- 

P 

tT 

m 

■9 

40 

tf 

f 

••4 

p* 

•P 

sf 

If 

tb 

p 

P 

U' 

0 

tr- 

CN 

4r  m 

O' 

O' 

o> 

- 

- 

44 

4 

04 

PI 

I’i 

-'. 

P 

»' 

44 

44 

Pi 

PJ 

Pi 

P- 

Iv 

tb 

(VI 

PJ 

.\l 

P 

INJ 

Pi 

Pi 

04  'I 

p 

P 

p* 

u 

o 

u 

if 

U' 

sT 

/> 

%r 

r. 

il 

tf 

^r• 

> 

tC 

t( 

3 

UN 

V 

b 

IP 

IP 

U 

9 

9 

UN 

P 

\ 

I- 

UN 

U 

u 

;a 

U' 

|r  If 

ir 

IP 

b 

c 

9 

o 

> 

» 

T 

4 

•> 

o 

o 

> 

« 

0 

fP 

0 

c 

9 

a 

9 

c 

9 

-V 

9 

c 

0 

r- 

e 

0 

c 

c 

0 

a 

e 

C9 

a 

0 C 

0 

a 

0 

u 

u> 

• t 

(il 

L 

u 

u 

J 

Ul 

Im 

J 

II 

b 

b 

UJ 

B 

H 

n 

e 

i, 

It 

•i 

1 

u 

Si 

Si 

a 

b 

.1 

Ul 

4 

u-  u 

,J 

L 

u 

t 

• SJ 

i*’ 

o 

• 

44 

> 

> 

O' 

bl 

■u 

0 

«' 

K 

□ 

B 

a 

E 

u 

0 

CO 

-J 

VI 

a 

B 

□ 

• 

c 

tt- 

4 

UN 

tt 

IVl 

«tt  O' 

P 

i 

p 

r 

•4 

rvt 

► 

.♦ 

t 

V 

N. 

(O 

M 

o 

N. 

X 

P 

0 

n 

.4 

«r 

c 

p^ 

flp 

« 

0 

•0 

« 

s. 

\j 

P 

4i 

4 

Pa 

0 

.♦ 

If 

>A 

u 

r 

0 

u 

- 

P 

p 

Pi 

u 

•1 

) 

p 

■o 

A) 

4 

0 

4 

u> 

^o 

' 

b 

tt 

» 

•* 

pi  r 

4 

P 

PI 

4 

4 

- 

•■ 

'• 

4 

- 

' 

• 

• 

pi 

«l 

f 

•J 

.c 

" 

< 

- 

P' 

PI 

p 

p 

t 

.4 

4 

♦ 

• 

♦9 

1' 

N 

P 

9 

i- 

IP  !■• 

•> 

UN 

9 

1 

r>. 

r 

^■. 

N 

r 

fv 

P. 

b- 

V 

•ki 

b. 

b 

u 

Ul 

b< 

b 

.N 

-I 

b 

U' 

UN 

UN 

9 

4N 

b 

aN  UN 

U 

b 

UN  P 

b 

U 

C' 

•> 

> 

r> 

9 

n 

* 

s 

O 

c 

t» 

r 

0 

r-i 

c. 

Y 

Y 

c- 

0 

aS 

r 

Y 

bt 

0 

aX 

a 

0 

Y 

1 

X 0 

X 

1 

0 

••» 

,, 

i. 

t 

II 

b 

b 

J 

b 

Ul 

U' 

;ii 

iAt 

1 

, 

b 

II 

b' 

II 

b 

b 

■ 1 

1 

L 

ti 

u 

1 

,1 

J 

L 

b 

b 

k 

1 J 

to 

fO 

N. 

r 

(»' 

•> 

.4 

r 

1 

4 

tT 

p 

'VI 

« 

r 

If 

p 

a 

K 

p’ 

PI 

c 

0 

a 

■a 

IM 

tt 

PJ 

f 

P- 

p» 

ttJ 

AX 

4 

p p 

I. 

0 

P 

» 

‘Nt 

* 

i« 

( 

U 

* 

o 

r 

K. 

IP 

(• 

p 

4 

r 

p 

P 

p 

IP 

♦ 

♦ 

0 

p 

^4 

A| 

Pi 

P' 

.1 

•tt 

pt 

-4 

k 

p 

P 09 

t\  1 

M 

•0 

/r 

r 

'■> 

•• 

h’ 

N 

K. 

Pt 

Pi 

K. 

9 

'P 

M 

-P 

p • 

tr- 

1 

P 

tv 

14 

P ■ 

P 

4 

•P 

«r 

•v 

W 

<T 

r 

C'  l-» 

c 

4 

- 

- 

tv 

t' 

tv. 

tv 

tv. 

tv 

f. 

r\ 

P» 

t‘ 

*4 

'• 

.,', 

■•' 

< 

P| 

P 

p 

lo 

4 

• 

• 

■' 

IP 

U 

IP 

If 

U 

L 

tt  lA. 

“■ 

•u 

f- 

o 

, 

v> 

rv 

U 

s 

, 

44 

( 

O 

to 

tt 

a 

b 

r 

P. 

P 

r 

r 

P 

N. 

f 

•V 

r«. 

P 

P. 

P 

P 

f 

r<» 

■M 

t 

1 

y 

Y 

■* 

< 

..4 

N 

c 

.1 

Y 

0 

> 

X 

C ’ 

i 

« 

> 

9 

r- 

* 

Y 

** 

c • 

• 

Y 

Y 

ii 

U 

i< 

•tt 

II 

It' 

.1 

1. 

1 

1 • 

I 

(• 

III 

b. 

r 

u'l 

III 

II 

II 

II 

•J 

itl 

1. 1 

I. 

1. 

l> 

u. 

b 

It' 

1 

1' 

u. 

U' 

b 1' 

i! 

J 

r 

I- 

.4 

r 

r 

J 

II 

1 

t . 

1 

1 

,r 

t 

1 

r4 

p 

P 

4 

J 

1*^ 

« 

, 

4i 

IP 

r 

r 

P 

P 0 

9 

X 

. 

> 

.-4 

At 

tL< 

J 

< 

I* 

o 

PI 

t. 

N 

r 

4 

.4 

|i“ 

u 

V 

PI 

c 

c 

1 

r 

0 

fv 

0 

P 

kC 

0 

f 

*> 

4 

C Pa 

p 

44 

■J 

0 

1 

t» 

<4* 

u 

r 

*< 

V 

r 

•P 

■*' 

p 1 

T» 

•p 

0 

u 

IP 

p 

c. 

4 

-> 

4 

4 

»r 

sT 

rv 

0 

ro 

4- 

PJ 

♦ 

9 

P. 

C.  to 

« 

4 

c 

r 

»4 

r4 

v4 

»iN 

•H 

- 

IV 

4. 

^4 

9 

' 

•'1 

•IN 

'' 

'• 

^4 

44 

'b 

iVI 

(VI 

U 

pj 

Pi 

'1 

VI 

CVI 

p 

P 

fo 

to 

'O 

IT- 

X t 

4 

P 

4 

IT 

lA 

UN 

(N 

(N 

l^ 

V 

tr 

U 

UN 

UN 

IT 

IP 

U' 

ir 

IP 

IP 

X 

t 

4 

4 

4 

4 

f 

4 

f 

4 

4 

4 

4 

4 

t 

4 

tt 

P 

t 4 

4 

4 

t 

• 

•» 

i 

C 

C* 

c 

r 

J 

' 

l' 

C 

C' 

Y 

C 

• 

Y 

c 

C' 

trx 

.9 

j“ 

0 

bt 

c 

Cl 

c 

'j 

X 

aX 

' 

rx 

a 0 

u> 

Ul 

UJ 

t 

III 

h 

1 

U> 

1 

Ul 

bl 

u. 

It' 

u 

Ul 

III 

■ M 

u 

,J 

II 

•J 

U 

III 

J, 

II 

Ul 

J, 

b 

It 

14J 

UJ 

b 

b 

b 

Ut  u* 

aI 

UJ 

j 

»o 

^ 

t> 

•\4 

«V4 

J 

1 

U 

If 

•a 

V 

• 0 

(VI 

.1 

f 

PN 

4 

P 

f K 

9 

t 

44 

i 

• 

•0 

VJ 

-t 

p ■ 

9 

O' 

-v  « 

PJ 

P 

• 

rw 

9 0 

t 

*4 

M 1*. 

•a 

N. 

^ 

r • 

O' 

to 

•T* 

44 

0 

K* 

O' 

9 

Pi 

4 

3 

1 

S' 

PI 

c> 

.V 

la 

k ' 

S' 

PN 

Pa 

J 

Pj 

4 

0 Pv  P 

« 

» 

O' 

j 

u 

u 

► 

u 

O 

« 

t 

IV 

(• 

f 

•■4 

UN 

J 

U 

4 

UN 

f 

O' 

(V 

P;  pt 

Pt 

-< 

4 

4 

- 

4 4 

a 

4 

■o 

to 

»• 

• 

pr 

♦ 

Jt 

•V 

•p 

m' 

•4 

P' 

pi 

•A 

•o 

♦ 

♦ 

4 

4 

IP 

9 

Ip 

■P 

P 

9 

ir 

If 

IP 

P If 

If 

Ip 

•• 

o 

• 

• 

4 

• 

• 

f 

1 

1 

R 

1 

1 

1 

1 

1 

1 

1 

1 

ca 

C3 

tn 

9 

• 

fO 

Cl 

• 

r' 

• 

c» 

tv 

• 

X 

• 

9 

0 

• 

c. 

C9 

• 

X 

• 

0 

• 

r* 

*9  .0 

4 

• 

•n 

O 

O 

R 

p 

K 

|5 

j.* 

V 

p 

E 

E 

B 

Ct 

0 

0 

C 

r* 

0 

a 

.9 

a 

X 

c. 

C 

c 

■9 

0 

X 

r 

0 

a 

cx  a 

C 

c 

0 

c 

Ct 

II 

P 

|l 

PI 

1 

j- 

aU 

c ■ 

n 

0 

b. 

a 

Ci 

Crf 

a 

0 

0 

0 

e 

a 

-9 

a 

0 

0 

o 

e 

0 

a 

0 «■ 

0 

a 

0 

a 

o 

e 

E 

K 

- 

1- 

1 J 

1 J 

B 

1^ 

n 

1 J 

r 

B 

Cl 

0 

w 

e 

e 

O' 

e 

a 

ca 

0 

c 

0 

e 

0 

e 

a 

e 

0 

0 

0 Ct 

a 

r ‘ 

c 

a 

e 

c. 

■ 

1- 

- 

n 

[4 

1 

|S 

1 J 

9 

e 

c 

9 

C* 

a 

.3 

-a 

ra 

a 

a 

e 

C3 

ts 

c 

a 

e 

e 

e 

0 

ca 

e 

fx  e 

a 

a 

^1 

♦ 

Ul 

V 

1.9 

fVt 

♦ 

tr 

n 

•* 

VI 

P 

e 

c 

VI 

♦ 

tP 

« 

0 

u 

4 

0 

« 

0 

M 

j4 

■ n 

tp 

0 

pt 

4 

aP 

0 

ca 

M 4 

■p 

ON 

c 

•4 

44 

44 

44 

Oi 

•V 

iM 

04 

pj 

fO 

P) 

fO 

p 

4 

4 

4 

4 

4 

UN  IP 

p 

IP 

liN 

0 

if  lO 

U) 

U) 

K 

Pv  Pa 

pv 

P 

« 

118 


I 

J 


iir  j -ao'L  -ij''  •'<j'R4h  <■.'  (/^^zitti  oo/«7/r7  f*ge 


1 


mmfr  fO(M(N4<V,<Ny«4«H^OO 

e^oc3'9oeaco900o.a09  >oo  9090000-900000  900000  40 
I I I I I I I I I I 

Ui.^^WU>UJl4iUJ^Ui  oUJuiUtUU'kUUiUi^UJUi^s^i^U  UJt^U  UU-UiWUJW-UUiUi^JVMk^ 

o*<A^^o.«o<rf«>i£oafN4«>r>-  o«.«>(^o(^^9'^>^>^4)«>  #u\<H40^oou>a'«3«fn'o 
• <#^<roou>«^Kf^<DoiOfNj^^(r«-(9«K'>-<T«(r«<«K<rx>KoooK)(A^ir-nu^«c'«r«<f>f')ir 


OKOO'«4«4(N«'0«4.^9^ru^^«4f'  t^^» 


t—  UU'UiaiU^lUUJU  UlUJUJUjUJ<AiUJ.iJt.^UiUvUJ  UUJU.U^UJU>UJUJU  Ui  UUjU^UJU.  UJUjUJUJuJUJ 
Z ^oKOf»f^a\<7>«.^4«£>'-4a<Mrk.fio^T4«0oj^«^or^j«;v4<r<oi>jr«>«f<o4ro<D-«o(>i 
M •V(M^ru4>o->j^  0(\i  #■4O^«N0'l^  ««40u^HOo«9m^tf.o 

K>  ^•o^»o<^  9oo^40«^«)c><^4'n<rA<M^<^‘40camtO(^oK^9^«o^^9'<Tv4^>^ov4 

o (TN  •Pi/N^-^fo^cr^  Ok  o^OvOK^^O'ir^of'  looo  ^or^  Kfo*o«o^K  to<r(Si<Ov4 


oc  o eo«  «roKN.«OuN^>o(\i^^K^<Niv4^«o^ro(\j«^(r«o^-ofvi«4^rvirkjr  cvj«n«^ 


H«Hv4«4w4«Hv4T4c>j(\j(M(\j<M(M(V(c\irNjf<jr\i  4v4«>««^90ooooo  O <r<r<r<r  Ooa-s  «OC 


U^UibU^UJiJUUJUUii  «JUJ-><aJujU  JuJOLuUiU'UUJU  UUl^ik'JuJijLiJU^U^b 
f 4^or*>T4w>A}KOP/r>«£>>0«r«4>u>a>(>JKtf'bii><J  •40Oaoa.ti^a^rJ^«fc^  gh 
o ^^^ie»ro■lOK.»o•o'o•4^ot<T'^«'T4lrc«r«r^rT‘K>^'K^Olf^»^r■<»  -^fs-Ki 

Ojcrof'  «4^(T't|\^ro4o'^  \J*OKvOK  44%r«^ 


Kir  4r44U'r  ^K)4l^l^U^'4*r><^J^v4^0*"^^«^lr'O\J^^c0l^4^«^J▼««>«p 


pr  fn  r>  prifo^^  ru  if*ooKKKK«r»«>oon«r'*>j»<r(ra‘'T'cT'9'fr<T'0<r(T»cT'c 


U'lUUbjOuiUtJUJb'tUUb  UUJU  iJUiiJUilL/^UIUUiOUJUJUJUJiJUJiJUJbU'b 
0^«  9l|l<\J(MK-(rO«-<«H'OOW^^C  «-4U>«'tOfV  tf  K>^(NiHOOiOotf4KC«4 

c ur^cmiTJC  .■>^ur  ol..«ocu^OK^-c  ^•J(rll^uc'^r•.  cr  o<«>«robf'K 

r»j«-4.»irror  r a o.4a:r  c.^  •-*po  >f>  t , r>7't.,K4i^c 

rrK^4«(\i«r  J«l•^^»-^^c^r•^^  tjiojo' 

^i^MlV^  4a  t <Vjl»  • fviJa  *X'  C »4»•^a^V^.<^JC^J^  ^44  »4 


IV  I 

I 

a 

c 


4«-«r>  <T  o'o<T'<r<J'(T‘<T'C  c -Dec  o'»r  K»r%raa“0»£*»tu  tf>if»uir44  4 

»»4»a«4»4Cr  I »C'COJ  jcto-*  O-^  C^C  >0t'^00  j3 

r\>  U !•'  t >•'  tl  lil  )•■  J 111  b ii  U i I ||  lo  li  n U U Ul  li  I <U  lii  L lit  U'  U III  U'  J b u I Ul  u'  UJ  U.  •)  Ui  ^ 

C »4r.  »0*^C-o4O0'K»ta0  -^a  ■>').4r4fv*40ha''»4.3OKot»04vj^OK0  94r\a>9 

<M  '\Kara.cui\|i^'t<Hi\ji.«->4-»r>tf4)r  Q<M44uic.4Kooir\4.oT>i  trcrK^ 
3 ^ 4K4KK^Uio«-ia«i>a)  o4ir.  a)4)r>  «-i^nu(T'.o 

c«4  ^ai4aoc^Ja}4^fior'  « olivi  '\/'i^j(Vi.«a9'<c(T'4c<rsrirv  iivKcflOKi-i*  \j 


•4»4ipr»,«4a>ay  n«a»H(\jr-(\iry^«rr  «-<4ibr4eiA*ir  (VHOct  i*  »^4*4 


*^^«^^rf\irr(v^r«>4.4*-4  »^,i.-«  |•l^^  ♦^-j'NiPirii  Aa'*'»0''  ivvnr-*  p 

3».-^  -.“fcr  >e  , V*  ...v>  t r ••r.  -*'»,'»i  . 

i • I I I I I i I I I I 1 I «44444444V444444444444444*4 

U 1 I ii>  •!  I Il  !•  U 4.1  >.  u I <■  I J '■'  ■•  II  U I''  U U b ill  <<’  1^;  Ml  It  II  b I.’  |.  b i .<  il  b 

>•4^C'^■»4••'C^  «>»IIII  il).st»U‘a-o  .gff”C‘«4c4U’Kf7x./»^lv^  ,_(^, 

T ^ ^ ^ ^.■>C«^T'»'^af^lOff•(^J^-4«cr'  o(T4K»Ooj»4->ft‘N.Cif'<Vf^*^*"'\i 

l'J^^r4fu>KC^-«£^(.^^l'«aU'4^^4)'^  40c,ir\«u-  ij«{\jf  o»•>^r•^.-0^^-a 

l4  <b  4K'|>  \ af*>4Jl'»tP-*0-N.«-4  ^ f»^0  .4tViO"'4’CVJ 


> Ai  < . « rt  4 *•  ^ (Vi  .1  . h .n  « ir  sT  A>  if  r <c  (\i  .1  <r  (Nj  i>.  >>  K «4  «.  (vj  rvj  o n r ^ *> 


Cf  r-  o looocooowior  r o a a>->  >€->c.tOCj  a4c  an^o  ac*e>or'CO^ 
(M  ♦ ^ r fu  .4  .o  « ■>  \i  .4  o ^ iM  .4  .0  ^ r'  4 •«  4%  a M .4  n ^ 9 nj  .t  vO  « o ^J  .4  rt  «r  c* 

^.4«4^r4\ir'(v  jr'ofoor*  (*^444  t.4iririr  o’OvOtoOiOoriKKKKKo 


y •4(\ii*'»>(i>nKc(r'944tM'«a4iAa)^  ■>t‘4vc'^r**>4irN'nKoa\r'^r'*a44\A«ocr"9«4 

4 4H  44  «4  t4  t4  «4  H «»  *4  (V  iV  >>J  IVi  >\J  i\i  fV  (V.'  (V  IM  r>  ^'  O <>  > I*/  •<>  f 4 4 


I>|C-  HrTr|_  jTJTv  L.f  (/TO^ll,)  1(9/J7ry7  P»Gc  14 


0 «(u(i9<^o<ro^O'(r9'(j*o'(r<r(}^0'<ro'(ro  O'O  o>0'Q  o'cro^crcro  9‘0'0  <r 

0*4v4v4^w«4«^v4t4«4e900000o0c>00a  • 3e00000<ao'90«90e9<9 

1 I • I I I I • I I I I I I I I • t I I I I I I I I I I I I I I I • I I I I I • I 
WUiUlUjU  UiUJ^l^UJ^illUlUl  Uli'UtUl  Ub  U,4^UiiUUiUjUJUjUJUiUU>UiU>UiUibJUii^UW 
90Aooooo9eoeoeo<3o  aoooooi.aai  ssoooooAowottOoo^ 
• <9tto9oeoeoooeooo9eaiooc»900ooa'9a4oee«oooA«** 


Zl 


v4 

u> 

• 

'n 

a 

«4 

• • 
O-aO 

• 

«4 

(g  40 

• 

a4 

• 

44 

44 

AJ 

Ai 

• 

AI 

• 

Ai 

• 

A. 

AJ 

• • 

Ai  A* 

Al 

« 

AJ 

a a 

Ai  Al 

a a 

Ai  Aj 

Al 

Al 

a a 

Ai  Ai 

a a 

Ai  Al 

a 

Al 

a a a 

Ai  eg  M 

a a 

AJ  Al 

9a 

v4 

w M <\i  ro 

fO  W 

ro 

eg 

o 

7» 

O 

O 

O' 

O'  o* 

O'  O 

0 

0 

W AJ 

Al  m 

9 9 

O'  lO  tO  K 

CO 

O'  e 

• 

a4  eg  Al 

A 

9 

Uk 

«4 

«4 

«4  a4 

*4 

v4 

*4 

44 

O 

e 

e 

e 

«4 

44 

44 

«4 

44 

w w 

44 

44 

44 

44 

44 

^ Al 

A 

A' 

Al 

g 

Al  eg 

Aj 

Ut  u 

•4|  U> 

Ui 

Ui  Ui 

UJ 

U 

u 

UJ  Ui  Ui 

UJ 

U>  Ui 

Uj 

U' 

U) 

UJ  U;  Ui  Ul  Ui  u 

UJ  ti 

U 

u- 

>il  lii 

U 

Ui 

U 

u 

Ui 

>o 

« 

m 

(Ik 

e N. 

eg 

K) 

<0 

K 

ro 

44 

A 

5 

O' 

O' 

K' 

44 

.9 

•9  e Ai 

Ifk  0 

Ai 

A> 

Ai 

9 

Al  ro  (A  lA 

A) 

m 09  m (V 

<g  A>  9* 

g> 

e 40 

40  Al 

K 

(A  C 

w 

A 

10 

lA 

A)  tfk  K O'  *4  «0 

Al 

44 

• 

Ai 

44 

40 

b 

9>  (3  Al  Aj 

9 Ai 

O 0>  K lA  fO  0)  tfV 

o 

K) 

(•) 

(A  O' 

in 

44 

•t4 

a (A 

A 

e 

CD  tO 

44 

0 »A 

0 As  A 

10  O' 

9 

O' 

■IS 

• Uk 

9 

A)  gk 

0 

fA  O lA 

A>  w4 

N. 

40  4* 

a K 

44 

Ai 

A 

O A 

A) 

A 

«0  A)  Oi 

3 0 44 

9 (A  Al  CD 

K)  tfk 

lA 

0 

g- 

0 

A- 

b 

b 9 

b 

tfv 

^ IM 

« 

lA  A. 

N. 

«l 

t4 

ro 

40  O' 

44 

*4 

to 

Aj 

44  ID 

«i 

■4 

A 

U 44 

ig  «•« 

44  AJ 

^ 44  A> 

Ar 

4C 

Ai 

O' 

w* 

a4 

Ai 

g> 

e 

IT 

A 

40 

40  u 

lA  A. 

wr* 

■o 

S' 

CD 

e 

cr 

» 

0 

A. 

A 

.O 

tr 

4 

♦ 

A A 

44 

C 

>3 

•D 

o> 

9 

lA  g>  A. 

K 

b 

A* 

o 

C* 

9 O 

e 

O 9 

C3 

o 

o 

o 

9 

a 

o 

c* 

.9 

3 

r-i 

0 

a 

e 

9 

0 

0 b 

9 

9 

b 

b 

<3 

e 

0 

•3 

3 

0 

3 

C' 

44 

♦ 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

« 

0 

Ui 

U 

>4i 

IK 

UI  >g 

g 

u 

u> 

u< 

UJ 

$ 

Ui 

U 

UJ 

U 

Ui 

Ul 

.J 

U' 

UJ 

iJ 

Ui 

U Ui 

UJ 

b 

UJ 

UJ 

Ui 

UJ 

b 

tki 

U< 

Ul 

II 

Ul  u 

b 

lii 

J 

u 

«4 

A.  U> 

o 

u 

H) 

J 

U) 

A. 

4J 

O' 

« tO 

AI 

40 

A> 

44 

A- 

0 Ai 

0 

H 

c 

0 

(A 

g 

O'  «c  0 

9 

9 

K 

o 

40 

w4 

O 

Al 

O'  O' 

o 

N 

A 

*4 

A 

(A 

A 

Ak 

rj 

A. 

AI 

^ Ai 

9 

(A 

XT 

a4  (A 

« (A  Ai 

A. 

0* 

0 O' 

« 

9 

O' 

K* 

«> 

«4  IT 

o*  ^ 

K 

IT 

tA 

lA  O* 

«o 

(A 

O 

'0 

.9 

« 

c. 

4 

e 

19 

«> 

CO  0 

g>  0 

A 

O' 

A. 

CO 

€) 

9 

« 

A.  g>  O' 

St 

3 

>1 

3 

(g  14. 

M 

(A  cr 

Xi  (A 

O 

0 

40  lO 

J* 

A. 

CO 

o- 

9 

A 

gk 

Ai 

A- 

tO 

44  tO  40 

9 4H 

9 IT 

gk  (0  10 

f 

9 

44  A. 

«4  U 

44 

C 

•O 

«- 

(g 

O' 

^ .1 

rn 

t 

■' 

A O' 

<o 

U* 

•f 

AJ 

44 

>A 

44 

A' 

(A 

a 

44 

44  J 

9 

0 

A 

9 

0 

44 

Al 

9 

0 

<0 

44 

ek 

Al 

c 

o 

o 

c 

a o 

> 

o 

rs 

o 

3 

3 

> 

o 

tmf 

0 

O' 

0 

c 

0 

0 

O' 

O' 

O'  D 

Ik 

0 

O' 

0 

A 

O' 

A 

A 

0 

<• 

0 

fs 

0 

O'  c 

«4 

.4 

^ T* 

«4 

•4 

«4 

44 

44 

44 

*; 

a 

C3 

3 

3 

<3 

C' 

r 0 

0 

3 

r 

3 

3 

C3 

3 

0 

r* 

3 

C3 

r> 

3 

b 

UJ 

UI 

b 

UJ 

u 

UJ  UJ 

UJ 

u 

UJ 

lO 

UJ 

UJ 

u 

b 

J 

UJ 

lU 

UJ 

b 

ui 

U 

u 

b' 

UJ  u 

b 

b 

Ui 

b 

J 

b> 

rg 

<r 

4 

-3 

O'  b (g 

o 

e 

-y 

lO 

■J 

a 

K 

lA 

(N» 

(A 

m 

A. 

0 

g 

ikO 

.9 

0 

N «N>  0 

A>  0 

A 

<0 

g>  0 

g 

44 

b lo 

(ft 

O'  9 

•4 

ir 

lA 

lA  U<  *4. 

40  40 

ul 

AJ 

AJ  <0 

Ai 

l>. 

A 

o> 

•4 

g 

A) 

O' 

A 

m 

O' 

9 CO 

A. 

g 

tfi 

« 

g>  e 

Al 

r> 

ID 

eg  O' 

A> 

44 

44 

f 

tf 

40  CM 

»o 

^..  O' 

•a 

K 

o 

40 

Ai 

lO 

O' 

0 

AJ 

0 

A 

0 

« 

gr 

O' 

44  « 

r* 

gj 

CO 

O' 

0 

44 

44 

4i- 

44 

44 

44 

0 

O' 

A. 

A 

40 

4-  A 

40  Al  .t 

A 

40 

O' 

O' 

« 

■A 

A- 

9- 

c 

C3 

A' 

A> 

4* 

A 

K. 

ID 

e 0 

44 

*4 

4 

44 

AJ  Ai 

AJ 

Al 

M 

eg 

g 

M 

44 

44 

44 

0 

(A 

•> 

A. 

m4  ^ 

(g 

t 

9 

<4 

♦ 

(A 

0) 

« 

»4 

44 

44 

44 

4 

AJ  (M 

Ai 

Aj 

Al 

A* 

Al 

Ai 

AJ 

Ai 

g 

<g 

eg  eg  Al 

eg 

eg 

, 

r> 

O 

C 

rr 

C 0 

'A 

o 

0 

a 

«' 

O 

a 

o 

a 

a 

0 

gi 

a 

0 

A 

K 

1 A- 

A 

f 

|v 

A- 

1' 

f 

u 

St 

g 

n 

g 

u 

g 

b 

«■ 

4 

c 

. c 

c 

1 

4. 

o 

4. 

L 

w 

4 

{ 

C 

C 

V 

c c 

C 

u 

b 

C 

b 

r 

4 

c 

c 

3 

c 

c 

c. 

4 

4 

4 

4 

* 4 

4 

4 

a 

u 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

UJ 

b 

lii  b 

b 

b 1 

li 

lU 

li 

1> 

ui 

It 

Ul 

Ui 

b 

(, 

Ui 

• U 

U 

b< 

1 

li 

U UJ 

UJ 

•aj 

U 

U> 

li 

b 

Ul 

UJ 

u 

|r 

Ui 

u 

UJ 

b 

J' 

k 

•*> 

u> 

«• 

« t 

(T. 

> 

441 

Ai 

O 

A» 

4 

A- 

(T 

•9 

9 

9 

A- 

«£ 

4 

44 

0 44 

cr 

IV 

9 

O' 

9 

c 

a 

u 

t( 

0 

A 

A> 

r 

A 

44 

r 

t4 

<r 

.»  b 

At 

4i 

er 

A 

A 

« 

44 

u 

ir 

(r 

0 

C 

9 A 

St 

A 

sO 

St 

44 

A 

A. 

(A 

f 

9 

lA 

^ 

r 

A 

a 

r<.. 

W A 

aH 

a 

a 

r 

n 

an 

0 

A 

tr\ 

g 

A 

0 

IT' 

a 

a 

4 to 

A 

a- 

A' 

r^s 

A 

9 

A 

c 

rt. 

b 

0 

9 

A 

sL 

rvi 

.■»  K 

O' 

4 

«4  U. 

O 

«g 

O' 

•* 

A 

U 

O' 

A Ai 

g 

0 

u> 

A 

W 

r 

4 0 

tj* 

• 4 

.rv 

J 

«*' 

Aj 

A- 

g. 

b 

9 

A> 

Uk 

b 

A) 

sL 

g 

nj 

4 

t4  «H 

r4 

O' 

r 

♦ 

n 

A< 

AJ 

Aj 

AJ 

*4 

.4 

O' 

g>  0 

M 

A 

A. 

rg 

.4 

r4 

O' 

A 

A 

9 

f 

Ai 

“4 

44  O' 

f" 

f 

^ 

K 

J 

.» 

r 

f 

fg 

•4 

4 

O 

C 

3 

C 

C 

rj 

, 

t_> 

. 

«■ 

«3  r 

4H 

44 

Aj 

A' 

A' 

AJ 

t'l 

A • 

A 

A3 

Y 

*4 

rH 

.4 

a'  »H 

44 

■ 4 

v4 

.4 

44 

•4 

Y 

44 

4 

4* 

.4 

4 

.4 

44 

44 

.4 

•r4  ^1 

H 

44 

■H 

4-4 

r4 

»4 

44 

r4 

4 

44 

*-• 

44 

U 

b 

Ui 

U 

U- 

U.  U 

i 

ui 

b 

Ut 

U 

b 

Ul 

b 

ii 

g 

u 

«i 

b 

Ui 

u 

u. 

U b 

UJ 

Uj 

UJ 

b 

UJ 

U' 

ui 

L 

W 

Ll. 

UJ 

U 

* 

b 

U 

U 

.4 

o 

U 

w4  lA 

s 

O' 

«> 

40 

N. 

A. 

«A 

g O' 

AJ 

<3 

lO 

0 

44 

A U) 

a 

cr 

tv 

9 

g 

g> 

g 

g 

9 

r 

-0 

A 

A) 

O' 

r 

e 

s 

o «r 

*4 

T* 

a4 

sT 

«4  (A 

\0 

.4 

O' 

<4 

.4 

rr 

f4> 

At 

A 

t' 

0 

4 

A- 

r 

A' 

4 

lA 

.4 

•3 

.4 

A. 

C3 

A 

r3 

Al 

a3 

<r 

r 

t 

4 

O'  A 

A 

t 

fA 

AJ 

4 

c 

cr 

"O 

g 

A. 

.4 

r 

ts 

AJ 

rf'  ^ 

» 

c 

9 

n 

g 

9 

tv 

■A 

At 

A 

a 

O' 

-n 

»c 

A 

o 44 

n 

7T4 

a4 

»4 

M 

(A 

<r»  r. 

0 

cr 

O' 

A. 

V 

T 

r 9 

If 

9 

A* 

A 

V' 

Al 

9 

•n 

A 

lA 

A 

M 

A 

r* 

•4 

« 

g U' 

lO 

f»> 

40 

(g 

.1 

40 

oc 

4 

A 

0 

0 

^ 

' 

g> 

9 

A 

r 41 

O' 

«o 

9 

A' 

44 

44 

(A 

A 

Al 

44 

0 

A- 

u 

u 

0 

40 

o 

a 

(A 

IT  A 

(A 

vT 

A- 

A. 

A- 

A 

A 

N 

<n 

tt 

A 

f'* 

A- 

A 

A 

g>  g^ 

sO 

to 

It. 

ir 

U' 

t 

9 

9 

0 

ft 

A 

A 

'kJ 

Al 

M 

3 

r-3 

< 

> 

4 4 

t 

r 

C • 

1 

1 

f 

» 

■ ■« 

J 

< •» 

3 

3 

— 

• 

0 

■3 

3 

C' 

t 

r 

3 

3 

y 

3 

3 

f 

< 

■> 

4 

♦ 

4 

4 

a 

♦ 4 

4 

* 

4 

*■ 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

a 

a 

4 

U 

h' 

• i> 

J 

U 

<11  .J 

b 

III 

<1 

• >• 

<•1 

tl' 

il 

u. 

It 

b 

b 

Ui 

U- 

J 

J 

IjJ 

•iJ 

U>  J 

J 

uJ 

Ul 

1)1 

U 

li 

lt< 

.U 

tJ 

IJ 

kJ 

J 

111 

• u 

t 

r'* 

r 

r 

O' 

<1 

A O 

t4 

0 

lA 

t 

A 

<f 

p»l 

n 

"O 

gk 

g 

■J 

0 

0 

A. 

9 0 

vr 

g 

<T 

.0 

143 

0 

r 

u 

y 

* ( 

Al 

^ 

Al 

O' 

o 

r 

4< 

3 

0 

a 

r 

a 

u 

U 

•-*  J 

W^) 

0 

A 

9 

A 

*33 

33 

r 

44 

T 

A ' 

A3 

•(N 

t 

A 

c 

K' 

44  4r 

J 

O 

■ o 

K 

r 

t 

tg 

J 

A. 

0 

<T> 

n 

‘A 

A 

A 

ir 

O'  O' 

a 

AJ 

4 

7* 

0 

0 

4 

♦ 

r 

0 

9 

g> 

A 

A 1 

Of 

A 

o 

r 

t*'  •» 

4^ 

4P 

|4» 

•» 

o 

u 

,4 

A' 

f" 

■' 

3 

♦ 

O' 

t 

(T 

•ri 

A ♦ 

r 

■J 

a 

g 

n 

■*' 

A 

r?3 

A 

A. 

A 

4 

1 

xO 

A 

f»> 

'g 

* 

'O 

* 4 

r 

( 

4 

f 

1- 

iT 

•A 

n 

0 

44 

O' 

0 

♦ 

Aj 

4-t 

Ski 

4^ 

r 

J 

IX* 

4^ 

J 

0 

»4 

c 

t 

AJ 

•4 

13 

A 

Ai 

i..7e55e*e«  B.«991E*^01 


> ««v49c  iftotto  9e»rt«o<«aoooc»4»e9ee9ee«eoooo«o«o»ci« 

9 I I I I I 

UltelUlUi^lUJUiai^U  (uUiUJliJUJUiliiU  It.  uJUi 

3•9*l^9><M9'*4|^«f^JK««1AI^^««4^4>«D<^^4«4«4v4K9‘«4o»4e«OIM4«>^J••K. 


oee*eoo0O9ooooeaeeo0O9erae«otoaeo0O9O9a*99 
♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦44^4^44«44^4444444^4«4*444 

iki^UiiAiUJlA'UJUJttilA  >«f  tAi  tAi  nf  yt  i^f  m i|j  tA.  »ji  m ^1  t*i  1^  t*l  1^  t.i  t*j  ^ 1^1  1^1  1^ 

M9c'^K«|^KgO<A44O80f4o4f*>fM4C‘KKIAtA8O7(M(UO4‘4>f^4>K^««v4«4^«4 
O4^l^4  9O*«3tOI%i0fViir«4«r^OA«O«4«4^|^irt<^IMK«l«OK«4^ll^**>^Ov4^n4 
v4CM4t^9tfk4«44*^4K«HKO^«O9«U^:<^M<MM.*4  4>e0'44MOK4KK)«4^J^^4 
fM^m«a44K>O«D^4T4^K4«O4OK>KIAO9fr'44OlOII^^94)<Mir<M*40tf«49«O 


c«  ID  e e ' 

• III 
Ui  UJ  U U i_ 

€ CM  c,  a « K 


l«>4«HC'lMfOa4  4 44  44 

)Oc  eoooOB  »oo  J 90  90  aoci.3eoOoc  c eoooo  ao  ao 

I I 4 ♦ ♦ 


UiUJUiUi  UU'ltlUiUWUJU  UJ(Ll<vlUi'JUJUJ  jb  iiuiUJU>Ui  UlLuiUiUJUiUiUi 
9^  44^4*|>9oN4e«a»04>«9ir.  IMliltfCMCMCM  p4iA<SJ«>M<A4 

KIO^eU<M4>^T4K(MOo(l\tOfM«4KV  «>(rv44  940t^«'<M«>B4r49«P40MU\«| 
CrtPCVO'CraCMlf  el*'CM<rvl(f\«4»4  4)l^(^«>4•a4>^i(r4»4t«44  4<i>«4O«««4K>0IA4- 
^<ro4>  '4«40rO«P«^r4KOv44  C CT^pCM  J\ir4  sO  ^r^«0«4^^  >»80«4fM«4^UH  OlTOfOO 


o 

«r 

M 

• 

*> 

4> 

*• 

• 

ro 

• 

a 

J 

Aj 

- 

CM 

A 

•4 

CM 

ux 

C^ 

r* 

*M 

M 

0*1 

0 

04 

• 

04 

xT 

• 

A-i 

• 

0 

• • • 

04  xO  /O 

AJ 

• 

04 

• 

Ak 

CO 

r4 

• 

0 

9 

A. 

• 

M 

•4 

w4 

44 

44 

-4 

♦4 

44 

A 

A^ 

t 

9 

lA  <A 

»r 

«0 

\0 

«0  t0 

lO  xC  <0 

x0  10 

A 

10 

A 

t 9 

CO 

CO 

CO  A 

Al 

04 

04 

0 

a 

04 

04 

e 

4 

■a 

<r 

A 

O 

o 

O 

9 

O 

9 

c 

O 

o 

C* 

»9 

O 

O 

O 

O 

9 

o o 

r* 

o 

c 

O 

o 

O 

0 

C 

e 

e 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 4 

4 

4 

4 

4 

♦ 

4 

4 

4 

4 

• 

1 

lU  |J 

u< 

u 

UJ 

UJ 

U> 

UJ 

19 

• M 

UJ 

kl 

bi 

b' 

It' 

b 

bi  bJ 

UJ 

ij 

■ J 

b 

UJ 

Ul 

UJ 

UJ  bJ  U 

UJ 

Ui  Ui 

bJ 

J 

Ui  UJ  b' 

b 

bJ 

bJ 

4 

N. 

c 

V 

A 

o 

*A  »0 

.0  to 

44  ir> 

« 

« 

N. 

9 

A> 

CM  rO  O 

A0 

3 

O tfx  (O 

CM  O 04  A> 

Cm 

a 

AJ  10 

9 9 CM  «> 

a 

•4 

»*> 

O 

w a CM 

<r 

& 

9 

O' 

lA 

9 

9 

A> 

M 

10  10  AX 

9 

a 

AJ  CM  O 

C 

9 K.  K 

#r>|0vOA)xi>04AkxO«Di004iO0t 

♦M  O O' 

•4 

▼4 

9 

A1 

c^ 

A 

o 

K 

9 

Aj  o 9 

CM  Ux 

K 

<0 

A. 

«r  e CM  A* 

t» 

)0  xO  «.  'O 

ox  AJ 

9 

xA 

a 

04 

e 

a> 

4 

0 

•4  CM 

A 

(M  lA  A 

A 

K 

9 

A. 

A 

A 

AJ 

C9 

w4 

9 

9X 

a 

A 

«4 

O 

04  m cr  9 O 

04  9 A' 

a 

Al 

04  « 

o 

•4 

x4  If 

r 

0 

4 CM 

44 

A/ 

«> 

C»J 

A» 

44 

9 

t4 

9 

CM 

A>  9 

10 

«i 

9 

CM 

-- 

10 

CM 

" 

it/  A>  4 Oj 

CM 

04  10 

04 

U' 

A 

Ak 

A 

0 

A' 

44 

A 

aC 

C. 

A 

■M 

1 

A> 

9 

9 

1 

„ 

u 

u 

u 

X0 

u 

u 

IT 

O xT 

i 

lA 

b 

10 

10 

l< 

10 

U' 

1 

10 

C 

r4 

O 

4 

C 

f‘ 

u 

Cj 

c- 

C. 

& 

kJ 

O 

O 

X 

vj 

c 

c> 

k 

k 

o 

w 

C •.* 

xa 

c 

r 

k 

C- 

J 

k 

.3 

0 

c- 

1 

1 

1 

1 

1 

1 

1 

1 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

tt> 

Uj 

iL» 

u 

b> 

b 

Uj 

L. 

U 

1 

U 

b 

u 

li 

Ul 

>U 

U 

bJ 

U 

UJ 

0 

U 

U> 

b 

lU 

b< 

UJ  b 

xAJ 

U. 

b 

b 

U 

b< 

b 

b 

b 

b 

b 

4 

• 

«4 

e: 

0 

<r 

U 

c 

I 

9 

a 

(M 

A- 

o 

v 

c 

A 

9 

A 

0>- 

k 

0 

O O'  *4 

*• 

CM 

0 

9 

a 

0 

04 

A 

U 

C 

a- 

I' 

c 

4 

A 

c 

A. 

A 

u 

|A 

0 

r 

■ 0 

r 

CJ 

9 

9 

fA 

•r 

O 

rr 

c 

xP 

A 

A. 

u 

Al 

cr  x0  Al 

A 

A 

A 

C 

10 

cr 

a 

CM 

9 

r 

%f 

ff 

4' 

«. 

«r 

«o 

•n 

cr 

0 

A 

u 

Al 

0 

*A 

A 

AX 

04 

9 

r 

a 

b 

r AO  A 

*r 

C 

t 

9 

a 

40 

a 

A 

a' 

CM 

l> 

4> 

*4 

Aj 

9 

■* 

« 

O 

o 

Al 

44 

c- 

uX 

♦ 

If 

CM 

A* 

A 

U 

w> 

J 

« 

0i 

04 

«4 

o c 

9 

•» 

xt> 

a> 

0i 

A 

A 

» 

xki 

04 

9 

CM 

(M 

-4 

w4 

" 

<r 

9*  U%  A' 

A 

A 

A* 

M 

UX 

•9 

a 

A» 

u 

9 

04 

04 

1 

4 

»4  0^  O' 

a> 

K 

X0 

xf 

A 

U' 

10 

9 

t 

rx 

t4 

»4 

4H 

44 

44 

A- 

A' 

A 

A 

.1 

9 

•jx 

lA 

■A 

(0 

ux 

A 

10 

A 

10 

M 

xD 

XT 

IT 

b 10  ir 

10 

IT 

10 

IT 

b 

b 

If 

10 

u 

O 

O 

O 

9 

1 

O 

O 

O 

9 

9 

Cj 

9 

C9 

C 

c 

O 

O 

C' 

C3 

xs 

i9 

k. 

9 «- 

a 

» 

-» 

o 

3 

■ 9 

3 

•D 

0 

w 

¥ 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

Ai 

Ui 

U 

Ui 

b 

UJ 

UJ 

UJ 

UJ 

oi 

b 

Ui 

Uj 

Iki 

mJ 

9 

UJ 

L 

u 

UJ 

UJ 

Ul 

b 

U> 

u 

UJ  4u 

xU 

b 

b' 

b 

b 

b 

UJ 

U' 

4* 

CM 

4 4) 

•4 

•M 

lA 

4 

00 

k 

44 

K-J 

«o 

UX  A 

9 

A 

CM 

A» 

a 

0l 

0 

01 

« 

j«* 

4) 

Ck 

O <4 

a> 

9 

iX' 

K 

U 

k 

0 

K 

a> 

C« 

(T 

.4 

ff 

<r 

4 

A 

(T 

IT 

»4 

CM 

IT 

t 

«4 

r 

•-I 

9 

4 

%r 

•A 

Al 

'1 

1- 

X0 

%r 

♦ ►'■ 

04  A 

04  10 

•A 

«0>  A 

0 

10 

>4 

CTX 

' 4 

.'> 

vO  (T  CM  A> 

c 

O 

•k. 

Al 

lA 

<-4 

♦ 

9 «r 

9 

04  <r 

A‘ 

rp 

9 

,•> 

A 

kj 

A e 

4 

A4 

C 

O 

xT 

Al 

A' 

•A 

M Ak 

ex 

4- 

cr 

A 

m 

lA  A 

(A 

■t 

•O 

Al 

W 

A» 

c 

A 

10 

A 

A. 

W 

o 

A* 

»■ 

'0 

r 

«r 

9 

o 

fA  ^ 9 o 

o 

•• 

xT 

CO 

*r* 

(0 

c 

Al 

0 

1 r 

»c 

sD 

9 

t 

9 

A 

« 

CM 

O 

A* 

9 

CM 

AX 

A 

9 

I* 

xO 

9 

O 

04 

04 

IX 

0 ® 

A 

xO 

If 

9 

9 

70 

A’ 

A* 

CM 

-4 

lA 

lA 

4 

9 

A K' 

*o 

<41 

9 

t 

9 

9 

A 

t 

♦ 

4 

t 

9 

•41 

A> 

fO 

Al 

'M 

CM 

A- 

A 

•4 

04  *4 

C.9 

C 

9 

•9 

04 

0O 

04 

• M 

Aj 

A 

ro 

c 

■» 

o 

J 

o 

1 

c 

j 

k. 

> 

o 

cr 

( 

r 

C. 

<-k 

J 

.*1 

TX 

Cl 

r 

r 

C* 

k'J 

3 X 

9 

3 

1 

1 

•X 

» 

Cx 

kJ 

C' 

0 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

1 

t 

1 

1 

Ul 

Uj 

u> 

UJ 

J 

J 

Ul 

< u 

U 

o 

19 

U 

U 

U> 

III 

U 

tJ 

U 

-u 

u 

Ul 

J 

U. 

J 

U lu 

b 

'U 

UJ 

.9 

UJ 

b 

J 

u< 

■ hi 

U 

u 

«• 

a 

CM 

A' 

M 

.4 

A 

t 

A- 

A' 

Al 

A- 

9 

♦ 

•k 

9 

tr 

A 

0 

A 

o 

cr 

r 

A 

kO  0 

M 

o 

cr 

9 

o 

A' 

P 

CP 

3 

w 

'A 

Aj 

U 

Al 

v4 

*A 

A U 

CM 

rr 

o 

A* 

9 

9 

r 

9 

•A 

IP 

o 

J 

A- 

Al 

.9 

10 

A 

10 

ex 

rp 

.9 

tr- 

3 

•A 

V 

(T 

-1 

A- 

*'1 

•A 

a 

|C 

<r 

9 

9 

p 

t 

»r 

•A 

K. 

n 

A 

|A 

9 

A 

r- 

9 

04  A 

a> 

A 

•O 

l.*X 

fk. 

AJ 

4 

a) 

0 

lA 

CM 

t 

M 

•c 

A 

A 

A 

»4> 

-4 

■Xi 

T> 

'A 

t 

I- 

A 

ir 

r 

o 

9 

•0 

.r 

'T' 

A 

c 

0'' 

C 

A ^ 

A' 

U 

AJ 

• 

.1 

0- 

»r 

fX 

9 

A 

CM 

4 

»r 

M 

* 

K 

1 

11 

J 

♦ 

k> 

r 

A 

P 

t 

J 

-’ 

A 

CM 

T 

lA 

A ' 

04 

04 

«A 

a'-  .4 

4 

A* 

' 

A 

CM 

04 

9 

4 

c 

r* 

, 

9 

9 

A 

A 

'O 

9 

9 

(8 

A 

U 

A 

ir 

X 

1 

J 

1 

9 

9 

9 

A 

■ •.  > 

J 

Al 

C 

J 

04 

04 

»4 

H 

■3 

V 

C> 

r 

e ■ 

» 

i; 

. •» 

k 

r» 

k 

-, 

1 

■« 

c* 

C 

k 

c 

-I 

V 

.-X 

9 

J 

3 C 

0 

r 

I ■ 

-x 

C 

r3 

r 

f • 

k3 

x9 

♦ 

♦ 

4 

♦ 

♦ 

•*■ 

k 

♦ 

* 

■*■ 

4 

4 

* 

* 

* 

4 

4 

* 

* 

4 

4 

4 

♦ 

4 

* 

* 

4 4 

4 

4 

4 

4 

4 

4 

4 

* 

t 

u- 

« 

.1 

H. 

•1' 

\i 

A 

!_, 

V. 

cr 

t\ 

cr 

u 

t 

A' 

I 

o 

„ 

9 

, 

l'  ' 

'« 

A 

U a 

xT 

3 

9 

. , 

, 

f 

9 

9 

„ 

a 

J 

r. 

A 

^ 

A* 

fk 

A 

f 

•J 

iT 

M 

A 

.4* 

(M 

*.1 

u 

A> 

A' 

o 

9 

A 

i{ 

« 

IX 

.1  A< 

a 

r 

0 > 

1. 

. 

A 

k 

i 

w 

Ul 

r 

l<k 

» 

A 

lA 

Al 

O 

rr 

k. 

A 

1' 

. 

0-1 

9 

A 

4% 

1 

Co 

A 

M> 

f-  r 

lO 

4 

9 

.0 

1 

a 

-r» 

r- 

a 

1* 

tf 

C 

*A 

ir 

fk 

A 

*r 

ff 

K 

A 

r» 

.1 

r 

A 

r 

A 

n 

*4 

.t 

A 

Al 

s. 

Al 

iM 

A 

0i  r 

r 

A 

• 

f 

•4 

xP 

•A 

0O 

a 

9 

n 

4 

r 

9 

«. 

• 4 

A 

- 

•» 

-• 

T> 

* 

A 

r 

•>A 

M 

A. 

■* 

A 

iP 

X 

CM 

-■* 

N. 

♦ A 

■• 

x0 

o 

cr 

*• 

Al 

4 

r 

•4 

k 

■4 

44 

C 

r4 

CM 

J 

r 

A 

J 

, 

9 

1 

U > 

ux 

•A 

.A 

1 10 

u 

u> 

■A 

k 

u 

b 

9 

|i 

A 

A 

tf 

b 

' j 

C> 

j 

( 

c_> 

t 

k 

kJ 

<9 

r 

r 

k 

• » 

> 

1.) 

c 

r 

1 

t 

J 

X_ 

3 X- 

1 

1 

»-» 

t 

t 

« 

C ' 

• J 

4 

4 

♦ 

1 

1 

1 

1 

4 

♦ 

4 

4 

* 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

0 

1 U 

u 

U 

UJ 

U 

tJ 

■ l) 

J 

U. 

’.1 

Ikl 

O 

UJ 

!•! 

• J 

•J 

U 

XU 

U 

xU 

■J 

1. 

b 

If 

li  1 

<|} 

l.l 

Ul 

1 

•H 

■ J 

U> 

1 J 

• l, 

u 

i.J 

A*- 

t 

4 

ff 

9 

9)  « 

A> 

k 

c 

o 

A 

E4 

0 

lA 

fk 

H 

.1 

a 

0 

xT 

1 

a 

CM 

f*9 

.r 

A 

0l 

iH  C 

A.. 

xo 

CA 

XM 

04 

fir 

04  a 

10 

fp 

b- 

> t 

^ 

9 

r 

«. 

o 

A 

1 

9 

. ( 

r 

4 

U 

. 1 

It 

O' 

> 

CM 

A. 

.P 

Al 

4«. 

1 X 

A 

>4 

> 

•> 

A 

rr 

C 

n 

• > 

■ 4 

"O 

9 

■> 

A*. 

t 

r 

A 

&/ 

A 

J 

n 

A 

9 

O 

A 

A 

r 

xT 

A- 

o 

0 

0 ' 

r 

O 

0 

e A 

A| 

f/' 

t 

O 

04 

a 

CP 

CM 

a 

a> 

V 

r- 

U 

A. 

AJ 

n 

r 

.!> 

44 

4 

■*' 

t 

n 

M 

9 

«> 

AX 

0 

• 

•' 

A 

A 

rx 

J • 

0 

>o 

rr- 

4 

U9 

4 

p 

e 

C 

4 

A 

•4 

n 

lA 

,4 

1 

cr 

A 

CT* 

CM 

9 

r 

A 

•4 

Al 

«P 

'• 

9 

A 

04 

■4 

-• 

4 

•4  > < 

♦ 

■ * 

00 

9 

04 

0H 

4 

a 

c/> 

_; 

O 

4 

;• 

o 

* 

r% 

• 

9 

■9 

A' 

r* 

O 

• 

* 

• 

9 

o 

C 

• 

• 

c 

rx 

O 

O 

0 

r 

0 • 

C ~X 

• 

c 

r> 

9 

• 

C> 

0 

c 

• 

• 

■9 

0 

J 

h9 

4 

u 

c. 

1. 

kJ 

9 

kj 

k. 

c>> 

9 

W 

k 

3 

J 

J 

J 

9 

k> 

k 

9 J 

9 

k. 

19 

W 

c 

X9 

3 

9 

9 

C. 

C 

C 

9 

o 

9 

O 

r 

9 

9 

CJ 

O 

o 

c- 

1 

C 

Cj 

9 

C 

Cj 

o 

o 

o 

y 

■n 

r -X 

O 

«u 

o 

Uf 

a 

0 

C 

0 

0 

1 

9 

'Li 

C 

O 

‘i» 

-» 

r 

.-9 

O 

t9 

■» 

f- 

O 

kJ 

■r* 

c 

o 

c» 

9 

a 

kJ 

9 

O 

.3 

o 

rx 

A* 

C' 

J -1 

O 

■ 9 

o 

o 

c 

0 

9 

0 

C 

PX 

0 

49 

O 

Cj 

•4 

9 

'9 

9 

C- 

o 

-4 

* 

fO 

9 

9 

> 

49 

O 

a 

V 

«9 

C*  3 

o 

O 

o 

o 

o 

0 

r* 

ITx 

9 

9 

'M 

t 

•0 

«r 

O 

M 

A 

«0 

o 

Al 

9 

vO 

«D 

€ 

CM 

t 

10 

■A 

9 

J 

9 

xP 

9 

f9 

"M 

t 

.A  A 

o 

Al 

• 

xO 

A 

C9 

Al 

.4 

xD 

a 

r» 

0 

1 

4-« 

4 

44 

4 

AJ 

CM 

A 

IM 

M 

A 

AX 

A> 

A 

9 

9 

9 

9 

J 

L 

10 

A 

10  lA 

xP 

xO 

xO 

o 

ax 

Ak 

K 

K 

Ak 

A 

00 

IT 

UJ 

1 CM 

41 

4 

U' 

sO 

K 

40 

O' 

C 

CM 

A 

9. 

tf> 

O 

o 

O' 

O 

04 

M 

A» 

9 

10 

X0 

fk 

ai 

O'  Cj 

CM 

A' 

9 

10 

X*J 

A 

« 

O' 

0 

04 

T 

44 

44 

44 

*4 

V 

»4 

4 

04 

CM 

>M 

A 

CM 

A 

A 

Ai 

A 

A 

Al  fO 

CO 

CO 

CO 

•O 

A 

A 

CP 

A> 

9 

9 

122 


^7..ctii  = ».l.H8E*ia  a.85’3f*lc  6./7B3E+12  5.i7te£*12  ^.lS9^€♦l^  l.B?B5£*13 


«l.T  » n"  ♦ f'i'’  '“HU  ♦ ■ H“Oj  » uv  f"  * OH  NO  ♦ JN20?*M30? 


• 9S990a**oaa^*e  -9'9*r3i9oao«»aeo  ^o^oe  ooo^ooooo* 

♦ I I I I I I 

ujUjwjikiWWiMiki^yjw^tij^^ui(ww(&iUJvMtui^'^(A^(4>(iii4i4^ui^4^(^wu/  w w tii  m t*  • V' 

a«A*r.v4« 

» 9*  .t  #^>fw*OM«Pv4C 


ir«4*PMKN«4K 

• • 
•4  AJ 

• 4 4 

9 OJ  0J 

• 4 4 

CU  M 

• 4 4 

0 10  K 

9 

0 

9 9 

• 

F) 

• • • 
44  44  0 

9 

0J 

• • 

44  -jy 

9 

• • 

M 44 

0 

• 3 

F «« 

9 

• • • 
9 0 «4 

i|\  l|\  IT  W\ 

t •• 

n 

K> 

•A 

F> 

4 

•#  .0 

^ F>  FI 

F> 

01  0i 

01 

01  0J  0^ 

0J  0i 

0J 

44 

44 

44 

44 

44 

9 9 

0 

9 f4 

44 

3 

O 

o 

3 • C3  O 

9 9 

O 

9 

9 

9 

9 

9 

o 

3 

9 9 

3 

o 

O 

9 

c. 

9 

O 

e 

«a 

9 

e 

9 

O 

9 

e 

«' 

0 9 

e 

9 9 

9 

♦ 

♦ 

♦ ♦ 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

♦ 

4 

4 

4 

4 

♦ 

4 

4 

4 

4 

4 

♦ 

♦ 

4 

♦ 

4 

4 

4 4 

4 

4 • 

1 

iU 

ItJ 

Ui 

UJ 

UJ 

UJ 

UJ 

•0 

UJ 

UJ 

UJ 

Ui 

% 

UJ 

UJ  u. 

UJ 

UJ 

u 

ui 

UJ 

•*i 

UJ 

UJ 

U 

UJ 

U 

UJ  Ul 

Hi 

UJ  U 

«A  K T4  fw  «|\ 

9 

rk 

3 

9 

(M 

9 

« 

9 

44 

4* 

0H 

.t 

F> 

e 

F> 

F> 

9 

9 10 

9 

0J  9 

9 

F4  « 

9 F 

44 

K 

U 

O O'  H 

9 

•9 

fVJ  9 

9 9 F> 

<V 

<\J 

0J 

Ah 

04 

9 9 UJ  10 

& 

F>  9 9 

9 

9 

9 0. 

9 

F>  «|\ 

9 

44  O' 

44 

9 0 

9 

4> 

9 ff>  9^  ^ 

fn  9 10 

*4 

4l  K 

0J 

.r  0j  0- 

9 «0  9 

9 

44  0i  9 

94  9 9 9 01 

9 

0 

0 

e 

44 

0 

0 

9 9 F F 9 IT 

m *C 

•4 

44  <0  « «r  K 

-M  9 

9 F)  0J 

^ 9 

PA 

9 9 

9 

9 9 9 

F' 

0J 

9 

9 

F» 

9 

0 

u> 

9 

34 

F 

9 

F 9 9 U>  44 

F 

a> 

<U 

44 

^ 44 

^ 40 

9 

4* 

4» 

4* 

tU 

44 

9 

<> 

O 

9 

9 

F- 

01 

44 

44 

44 

0 

9 

F> 

CVJ 

*4 

44 

9 9 

F 

44  U 

ir 

^ ^ 

'3 

!•• 

F> 

F> 

F' 

F> 

.r 

.» 

» 

.3 

3 

FN 

3 

F 

F> 

F> 

Ay 

01  CM 

0J 

0J  0J 

44 

44 

44 

9 

3 c 

44 

44  0 

0 

o 

W 

o 

« 

9 C> 

o 

o 

e* 

O 

3 

o 

9 

O 

<3 

c 

3 

3 

O 

& 

h3 

O 

3 

O 

C. 

o 

9 

O 

e 

r» 

3 

P3 

3 

3 

0 

0 3 

CJ 

*?»  e 

a 

4 

♦ 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

1 1 

• 

Ui 

u 

b 

U' 

U U 

u. 

4l 

uJ 

Ui  UJ 

U' 

UJ 

ij 

b 

b> 

b 

UJ 

b 

b 

UJ 

IkJ 

U 

b 

J 

U 

b 

b 

u 

UJ 

Ui 

uJ 

U 

U 

Ul 

Ul  U 

liJ 

Uj  u> 

UJ 

cv. 

«v. 

•« 

« 

«V  0 

4l 

10 

IT 

u% 

4> 

fk 

a 

K 

9 

«k 

v4 

b. 

i> 

9 

U> 

9 

& 

0 

0j 

9 

9 

9 

e 

9 

9 

« 

u- 

.4 

9 

•1  IS, 

9 

K 9 

0 

K 

IT 

«4 

K- 

#*  •* 

4 

F* 

t 9 

» 

pr 

F 

AJ 

F' 

t 

41 

FI 

e 

t 

10 

C»  10 

O* 

44 

(0 

01 

3 

O 

10 

9 

0J 

U* 

0*  9 

10 

9 A 

Ai 

ir 

•4 

«4  «ri  ^ 

•S. 

4 

c» 

K. 

10 

iT 

A' 

9 

9 

9 

9 

01 

9 

9 10 

O 

0 

4^  0 

o 

44  9 

.3 

0J 

•A 

909 

44 

A'  F 

F 

c 

O 

fn  If 

o 

K 

10 

If 

FI 

3 

F 

01 

«0 

Ah 

«r 

F 

r 

f, 

» 

9 

9 

13 

01 

IT 

9 

tS 

44 

c 

9 

9 

9 

3 0 

9 

9 A 

9 

»r» 

(M 

44  ^ 

u 

fn 

0f 

^< 

(\ 

•»> 

40 

9 

«4 

44 

4 

44 

W 

9 

9 

hC 

"O 

AU 

44 

9 

9 

»o 

0J 

u 

0J 

44 

A* 

9 34 

9 

01  a' 

44 

«£« 

tr 

IT 

ir 

t> 

F> 

F» 

F> 

F> 

O 

F 

FI 

FJ 

•o 

F> 

FI 

A 

A 

F* 

•3 

A 

F 

0J 

01 

01 

0* 

01 

0 

01 

01  M 

Nl 

0 A' 

04 

o 

b 

C O 

t3 

w 

C 

w 

O 

o 

c- 

c 

c 

O 

kJ 

v> 

3 

C 

kJ 

O 

«b 

u 

kU 

W 

w 

J 

c 

k3 

c 

0 

0 

G 

w c 

CJ 

0 9 

9 

♦ 

♦ 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 4 

4 

U 

u< 

UJ 

Ui 

b-  UJ 

4i 

u 

4l 

UJ 

4J  UJ 

4lJ 

b 

U> 

>4j 

U> 

b 

UJ 

Ui 

•kl 

tkJ 

U 

UJ 

Ul 

U 

UJ 

b 

4J 

u 

U 

u 

U> 

til 

UJ  Ul 

iJ  UJ 

« 

e> 

C*  3 

« 

V 

lO 

o 

e cr 

a 

9 

9 

0 

Ah 

K 

r 

c 

0 

A. 

9 

9 

O' 

F> 

01 

01 

U 

o 

9 

10 

9 

9 

O' 

0 u> 

Nl 

0 9 

9 

»»> 

.1 

c 

^ 9* 

^ 

CNJ 

44 

0 

k. 

0 

IN. 

4 

O' 

« 

b 

b 

c 

hI 

0 

A 

c 

9 F) 

0 

O 

1.3 

0 

O' 

01 

■3  0 

r 

A 0 

0 

r 

vi 

« 

^1  «£> 

u 

c 

IT 

1/ 

n 

k 

01 

ii 

lA 

C; 

4 

A 

U 

0 

A 

9 

J 

II 

a 

C 

,4 

• 

A U 

p 

b 0 

0 

fM 

(\ 

• 

»4 

U Cb 

cr 

U 

1 

U 

b 

Ah 

0 

f 

0 

A 

9 

u 

44 

0 

• 

FI 

U 

A 

u 

U 

0 

9 

0 

A 

a A 

0 0 

9 

w 

«Vp 

C Jt 

• 

« 

10 

Ul 

-* 

A1 

A1 

FI 

t 

9 

10 

A 

A 

0 

9 

b 

A 

A 

0 

4- 

• 

u> 

V 

9 

A 

44 

If*  A 

• 

• # 

10 

»n 

^ 

•o 

•M 

^ c 

r 

INJ 

Al 

4 

A 

!•> 

A| 

<9 

t 

4 

O 

A 

F> 

3 

A1 

44 

*4 

3 

3 

aH 

01 

0' 

A 

F 

9 

9 

10  if 

P 9 9 

o 

kJ 

3 C 

c 

C 

C. 

O 

4 

C4 

c 

U. 

3 

3 

r 

3 

r 

3 

b 

3 

O 

C 

r 

C 

J 

e 

c 

» 

v3 

ry 

C3 

0 — 

0 

u.  c 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

« 

4 

1 

f 

r 

1 

* 

1 

1 1 

1 

• 

'1 

1 

ij 

U 

U>  u 

b‘ 

III 

Ui 

UJ 

M 

li 

b> 

ij 

O 

1 

a 

b 

tl 

'll 

J 

U 

Ml 

b< 

b 

l> 

b 

U' 

b 

u 

1 

•Il 

'III 

0 

UJ  'l. 

b 

C 

«4 

C\J 

O 

4 4» 

4 

»< 

y 

T* 

ISJ 

•\t 

Cl 

»> 

Ah 

o 

b 

»4 

0 

«' 

nC 

c 

Ul 

0 

9 

«r 

0 

9 

U 

9 

0 

9 

vO 

« 

a-l  F 

lU 

0 9 9 

J 

n tf* 

4 

4 yv 

a 

a 

4 

<r 

F> 

14 

0 

10 

«3 

•) 

H> 

w 

) 

0 

A 

t 

3 

3 

o 

« 

O 

9 

4 

A 

0 

9 

0 

A « 

9 

F 

c. 

e 

m 

tfN 

O «r 

tfv 

N. 

t 

10 

A 

9 

0J 

lO 

t 

9 

A 

0 

o 

O 

FN 

0 

44 

kT 

INI 

Aj 

0 

F 

U 

A 01 

0 

N 

o 

4> 

V 

O •'! 

uJ 

J 

j 

'O 

Ah 

flP 

A 

9 

UN 

F> 

0 

c 

> 

C 

.f 

A. 

P 

c 

44 

0 

A 

0 

3 

F 

0 

3 

J F> 

u> 

» »>■ 

pr* 

f 

•o 

' 

«; 

Ut  4 

1*1 

4 ■ 

c 

tVl 

OJ 

O 

U' 

V 

• 4 

44 

4< 

•4 

9 

NJ 

F> 

bpt 

0J 

9 

44 

9 

44 

iN 

4 

IT 

44 

F 

F A 

tr,  9 

A 

«4 

«4 

w»  t4 

U 

r 

NJ 

0 

A 

A 

A 

A 

A* 

Ft 

F) 

«• 

A 

0J 

A 

INJ 

01 

J 

r w 

y 

k 

t 

1 

3 

J 

4 

r 

3 

r 

J 

t 

e- 

O 

C 

3 

kc 

c. 

3 

k 

r 

C' 

b' 

b 

( 

r 

k. 

3 

G 

1 

G I 

C. 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

1 1 

1 

li- 

,1 

■ I 

b 

■•  (t 

Ui 

(i 

b 

U 

i«J 

li 

'.I 

u 

J 

'll 

II 

IJ 

UJ 

II 

1. 

II 

II 

'IJ 

U' 

• 1 

b 

'1* 

b 

1 

••1 

Ml 

u> 

!• 

1 b 

l|| 

II’  J 

b 

(M  ir 

»r 

O 

- fH 

«4 

r 

rvi 

w* 

U' 

A 

o 

n 

,4 

3 

01 

0 

0 

If 

O' 

FN 

h3 

0 

Ah 

0J 

(\1 

44 

0 

3 

3 

0 

0 

3 

0 

9 '3 

F 

4 a-l 

13 

a 

r 

f 

*ml 

^ c 

f 

j 

rr 

F' 

F* 

4 

<r 

A> 

N. 

0» 

*r 

IT 

9 

O 

•3 

ir 

9 

44 

9 

3 

• 0 

r • 

.» 

A 

t 

3 

4 A 

A 

aU  A 

0 

O 

V 

i> 

t\ 

« 44 

n 

1* 

»r 

Oi 

A* 

A< 

A 

U> 

•y 

01 

F> 

o 

O 

9 

NI 

01 

o 

r 

0 

r 

o 

3 

A 

a^ 

9 

F 

A 

a4 

■n 

« A' 

0 

A O 

0 

^^ 

04 

i) 

.4 

O' 

tt 

r- 

'J 

U 

O 

01 

vP 

b. 

01 

0. 

O' 

9 

•1 

t 

c 

c. 

s. 

44 

J* 

9 

0 

IN 

9 

J 

0 

«■' 

F- 

9 0 

« 

vj  0 

0 

o 

•r 

A 

U* 

S II 

0 

O' 

r 

■r 

r* 

4 

<\J 

At 

A 

4 

•4 

0 

I' 

t 

•Nl 

•« 

44 

f 

• 0 

A 

01 

4H 

aU 

r 

0 

9 

A 4 

a4 

3 t 

If 

u> 

a> 

i -a 

t»> 

\j 

f 

r* 

'■> 

') 

t 

hJ 

J 

|- 

hJ 

3 

J 

J 

u 

I'J 

A> 

A 

FJ 

•J 

A> 

At 

(Nj 

0 

01 

<J  F 

r-*  > 

b 

> 

•» 

o ■% 

c 

c 

T 

■ t 

r 

t 

O 

• 

O 

kit 

» • 

t 

. 1 

y 

y 

o 

1 

r 

fy 

CJ 

t-i 

w 

> 

k J 

1 < 

3 

f *3 

y 

C'  C 

y 

♦ 

4 

4 

4 

4 4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 4 

4 

4 ♦ 

4 

u- 

1 

It' 

4> 

1 M u 

U 

ul 

tl 

b 

. 1 

!• 

.i 

, 1 

il 

'll 

>4J 

It 

1 

b 

b ' 

U 

. 1 

M ' 

■|l 

U 

i 

u 

1 

1, 

U 

.1 

b U 

b 

tn 

N-* 

rM  'M 

4 

<*' 

u 

t 

J 

*4 

U 

A 

t 

4 

IT- 

a 

4< 

. J 

u 

U 

F) 

0 

it« 

.H. 

UN 

P 

ti 

10 

1 

A 

tr,  0 

♦ 

r Ul 

'3 

4 

o 

r- 

.N 

O 

A 

.A 

• t 

A. 

A 

u 

« , 

A 1 

■y 

«v 

II 1 

A ' 

A t 

o 

.1  > 

»A 

J 

U' 

0 A 

1. 

t— > in 

IV' 

try 

4. 

or  « 

4 

V. 

«o 

K. 

A 

^ 

t 

FI 

«• 

0 

o 

\ 

A 

.0 

.4 

«r 

10 

fry 

•0 

.41 

3 

f 

3 

A 01 

rs 

0 a- 

. 1 

♦ 

tf 

t 

« .4 

•o 

' 

i> 

Al 

f 

'' 

p» 

1 

ff 

r 

* 

3 

A 

A 

% 

O 

u 

• 

•3 

• -» 

r 

a 

F- 

» .4 

v( 

p'  1 

a 

'4 

" 

♦ 

sJ 

• O ' 

r 

■y 

Al 

r>  1 

'' 

r 

* 

<J 

A 

A 

> 

A 

01 

44 

t4 

r 

.N 

t 

"3 

r 

*■ 

• 

lA 

' 

' 

*4  If 

1 

«4  1 « 

A 

«-4 

«-*  -4 

v-4 

*4 

r • 

p 

c 

A' 

A 

P 

At 

A 

!• 

A 

r 

C 

A 

<NI 

tNJ 

b 

A ' 

0- 

'NJ 

A* 

0 

f 

A| 

r A 

U 

» 0 

01 

r 

> 

1 ■ 

■ t 

* 

r" 

« 

t.t 

( 

• 

»•» 

w 

1 

k 

« 

t 

c 

4 

t 

< 

C 

c .*• 

1 

4 

4 

4 

4 

4 4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

» 

4 

4 

4 

4 

4 

4 

4 4 

♦ 

4 ♦ 

* 

(1 

!• 

< 

II  • It 

!•• 

II 

b 

1.  > 

r 

1 

IJ 

, 1 

III 

1, 

It 

1 

. t 

1 

I, 

h 

III 

u 

1, 

1 . 1 

li 

Ml 

It 

1, 

. 1 

1, 

It 

l< 

1 t 

II 

«t|  ikJ 

II 

,4 

'■4 

r 

a 

>*•  o 

r 

V 

A* 

• 4 

i< 

* < 

.> 

''J 

O' 

• 1 

3 

4 

J 

At 

0 

> 

) 

u 

At 

J 

VI  ' 

r 1 

A 

k 

c 

( t 

U A 

J 

1 P 

C 

r 

<o 

f 

♦ J 

M 

4 

4 

J 

f 

r 

b 

A 

« 

»r 

t 

10 

Ft 

• 

a 

A 

•J 

O 

♦ 

W 

3 

3| 

0 

'' 

A» 

3 9 

|P 

• P 

P3 

r 

^ 

(M 

O vT 

«c 

4t 

<\i 

• 

>0 

4 

g 

.♦ 

0J 

0 

t 

A 

hJ 

(Ni 

♦4 

) 

Ah 

1 

.t 

t 

9 

9 

C' 

c 

0J 

A 

IT 

.4 

A 0 

0 

0 c 

10 

«c 

o 

«\l 

v4  (\< 

•n 

*4 

Al 

o 

10 

•' 

r 

• 

«L 

‘ 

•> 

r 

<4. 

« 

IT> 

If 

lA 

0 

k 

• 4 

NJ 

pH 

' 

U 

•> 

0 0. 

A 

4 V 

vNi 

• 4 

v4 

4-  4 

*■ 

' 1 

•1 

*■ 

■* 

%f 

“ 

" 

«4 

- 

n 

rt 

“ 

3 

* 

IP 

o 

' 

n 

c 

A 

’ 

> 

*1 

> a 

p 

k N 

F- 

• 

o 

• 

• • 

O I 

CT' 

• 

• 

r 

_• 

c 

r 

• 

• 

• 

• 1 

C9 

• 

A> 

> 

• 

r 

• 

t 

a 

4 

a 

y 

a 

f » 

> 

* 

a 

a 

a 

y 

) 

y «3 

• 

a a 

y y 

a 

y 

C' 

e> 

3 

r' 

Cl 

> 

r 

> 

c 

o 

y 

r 

r- 

f 

r“ 

ry 

f 

y 

3 

4 

3 

O 

p 

r 

r 

r 

3 

3 

3 

r 

A-  C 

P3 

0 r 

f 

o 

c 

C 

Wi  kJ 

c 

i. 

» 

( 

4 

4 

c 

J 

» 

C' 

O 

b. 

k 

u> 

i 

k 

k9 

3 

w 

CJ 

1 

w 

kJ 

b 

c 

J 

t w 

b 

kj  J 

J 

C4 

3 

C W 

3 

9 

C 

y 

«_» 

y 

c 

k3 

O 

9 

C3 

3 

3 

b 

c 

3 

O 

V 

O 

CJ 

r 

a 

0 

C 

1 

r 

c 0 

0 

kj  0 

a 

o 

C.' 

C 

C4  CJ 

9 

t- 

e 

c. 

4 

r> 

€ 

4 

•3 

3 

9 

o 

3 

> 

C 

t 

O 

c. 

9 

O 

C 

r> 

3 

3 

CJ 

0 

c 

3 

y 'O 

0 

^ a 

r 

f'* 

9 

A 

|4  O 

At 

4 

.0 

f 

.4 

c* 

r 

Al 

0 

•o 

*3 

Al 

4 

0 

T 

3 

■'I 

.4 

0 

A 

3 

N» 

9 

lA 

F 

0 A 

4 

vO  3 

a 

1 

4 

4 

4l 

f 

1 

<M 

<\j 

A- 

A 

A 

'O 

•*> 

t 

* 

4 

■0 

3 

■0 

10 

9 

9 

d 

0 

3 

0 A 

A 

0 0 

9 

4 

<*■ 

4^^ 

t/\  «D  K 

»* 

9 O 

fM 

FI 

A 

• A 

10 

0 

o 

Cl 

A 

A 

„ 

3 

0 

•A 

o 

> 

a4 

NI 

F 

A 

0 

a 0 

9 

9 . 

4 

*4 

r4 

*4 

.4 

•4 

• 

w 

44 

4 

0J 

01 

u 

INJ 

Aj 

Aj 

01 

0J 

0J 

iNJ 

A 

»> 

F 

F 

'1 

F) 

F»  3 

F 

A 9 

9 

123 


<v 

C4 

«4 

44 

<> 

.a 

44 

.3 

44 

4O 

4f 

vr* 

(Vj 

lb 

fti  (Vi 

(Vi 

(VJ 

(Vi 

lU 

(Vi  (Vi 

ivi  (VJ 

(Vj 

(Vi 

44 

44 

44 

44 

«4 

» 

9 Ci  0 

44 

2 

>* 

o 

4» 

O 

e e> 

e 

O 

O 

9 

0 

9 

9 

9 

0 

9 

9 

0 

0 

9 

0 

9 

0 

0 

ta 

9 

a 

9 

0 

9 

e 

9 0 9 

0 

9 

0 

9 

C 

9 

i 

♦ 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

4 

4 

4 

♦ 

♦ 

A 

♦ 

♦ 

4 

1 

UJ 

Ui 

tt 

UJ 

UI 

;£ 

UJ 

Ui  Ui  UJ 

U 

Ui 

Ui  Ui  Ui 

UJ 

Ui 

Ui 

i&l  Ui  Ui 

Ui 

Ul 

Ul 

Hi  Hi 

Ui  Ui  Ul 

Ul  Ui  Ul 

% 

U 

Hi 

4 

2 

«D 

A 

rsi 

ro 

(1 

^ m -t 

2 

(VJ 

40  (T  (Vi 

e 9 PO  lA 

9 K 

9 9 44  9 

9 0 9 

9 9 O' 

•0 

K 

2 

PO 

O'  • « 

O' 

M 

« 

40 

0 

A 

Pft 

'f 

PO  O' 

ftf  (VJ 

*4  (T  (VI 

44 

4 (A  44 

09(V944<A4fti9 

a 9 M 9 IA 

tr 

** 

ij 

2 

o 

w 

If^ 

«A 

«A 

PO 

<V 

(A 

2 

«4  fti  9 9 (VI 

4 9 4(  ft. 

e ftj  PO  4 O'  K 

3i 

A- 

(Vi 

9 

•4  9 

tO 

W 

o 

« 

o 

# 

K 

O' 

m 

(Vi  vO  9 lA  44  PO 

9 

a P4 

449iAlA9r049 

9 

0 

• 

9 ft.  9 

9 

# 44  M # M 

.4  « 

(U 

*4 

40  (Vi 

PO  lA  O'  ^ A* 

4 9 K 

9 

9 

Pu 

9 4 PO  (Vi 

44  «0  (T  9 4 

(VJ 

44 

44  44  9 9 lU  ««  9 

“ 

fw 

t 

» 

♦ pO  (ft  Oj 

ft< 

ftf 

vO 

v4 

0 

0 

9 

44 

44 

44 

(Vi 

(Vi  Ai  (Vi  (Vi  ry 

(VJ  (Vi 

(y  <vi 

VJ 

Ci 

9 

o 

9 

e 

S 9 

9 

0 

0 

0 

0 

9 

0 

9 

ca 

0 

9 

0 

» 

a 

e 

e 

0 

0 

9 

e 

9 

9 

? 

0 

9 

z 

r 

T 

4 

4 

4 

4 

4 

4 

♦ 

4 

4 

4 

♦ 

4 

♦ 

4 

♦ 

4 

♦ 

4 

♦ 

♦ 

liJ  lU 

Ui  UJ 

bJ 

||J  UJ  UJ  b< 

UI  Ui 

UJ 

b 

UI  Ui  UJ 

UJ 

Ui  UJ 

Ui  Ui  bJ  u 

Ui  UJ  UJ 

•b  Ul  bi  Ul  U 

Ui  U 

UJ  Ui  Ui  b 

♦ 

fr 

O' 

• 

M PO  fSJ  14  (M 

M 

e 

(M  fti 

» -0  Aj 

ftf 

• 

(Vi  K 

4 

9 

0 

9 

PO  O'  4 

4 O'  9 K 

44  IA  9 9 

< 

9 9 IA  44  C>  IA 

o 

• ^ 

• 

lA  >0  vO 

vA 

0^  O'  4^ 

4 

e 

o(rK(riAPopoo'4POiA44ojrpo 

9 

44  4«  O'  a O'  44 

z 

pn 

•# 

<0  O'  « IW  O'  vA 

z 

vO 

u> 

44 

44 

«o 

IT 

UV  9 

9 

44  4 

9 IT 

e 

po 

9 

* 

0 

9 IA 

a PO  O'  O'  IA  PO  ft. 

•4  a 

O' 

r'  14  K O'  o «o 

s 

fti 

ft 

• K PO  Pb 

e 

ft. 

«4 

9 

PO 

4 K 

9 

34 

«A 

44 

4 

49f«.0'4A-KOKIA 

9 

(T  f > 

(M  «4  -0 

44  40 

(M  A 

44 

fti 

pw 

44 

4 

tO 

PO 

«T 

‘M 

ft. 

4f 

4 O'  44  fti  4 

U' 

A*  O'  44 

44 

H 

4( 

44(uro09iAafo 

>* 

z 

S 

«<* 

•4 

•a 

» 

«4 

«4 

ftj 

v4 

w4 

O 

9 

a 

vf 

p4 

(VJ 

ft! 

fti 

PO 

P»V 

0 

PO 

ft 

•0 

PVI 

A) 

A' 

ft 

A' 

*M 

M 

*4 

44 

44 

4 

9 

IW 

o 

<9 

i9 

e 

o 

O 

O 

o 

e 

a 

9 

e 

9 

0 

a 

0 

a 

0 

0 

a 

0 

0 

a 

a 

Ci 

a 

a 

c. 

e 

e 

Ci 

Cj  Ci 

a 

e 

C 

9 

0 

0 

a 

9 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

N 

♦ 

U 

U' 

UJ  b 

UJ  UI  *0 

UJ 

U UJ  Ui 

Jj 

U' 

'U 

U 

‘j: 

b 

tb 

UJ 

b 

b 

lb  lb  Ul 

Ul 

Hi 

UJ  u 

Ui  UJ  b 

U 

b) 

Ul  b 

lb 

b 

0 

3 0 

K 

(>J 

« 

o «C 

(\i 

A 

a 

4 

vA  (A 

4 

9 

9 

« 

(A 

0 

(V) 

44 

PO 

iA  4f  9 po 

44 

Pw 

O' 

9 

9 

a ft- 

a 

0 

9 

O 

z 

H <M  O'  ^ 

4 

PO 

4) 

«0  Pv 

UV  fti  ft* 

a nO 

4 

9 lA 

PO 

PO 

pi. 

PA  9 (A  9 44  tA  ft. 

44 

(a 

A 

A IT 

IA 

pn 

pk. 

ft. 

0 

c 

44 

PO 

•»  If 

U) 

o pp> 

0 

« 

o 

ft! 

0 

9 

vC  K 

.•) 

4-»  4 

9 

10 

po 

UV  9 

9 fti  (A 

44 

PO 

tA  ft 

a O'  9 0 

U 

9 ft-  c 

a 

9 

4 

4) 

44 

A 

« 

« (A 

a 

(VJ 

H 

4 

(A 

pO 

C 

O'  0 

if 

9 PO 

0 (Vi 

ft- 

ft- 

• 

44  IA  K A 

9 9 (Vi 

M 

9 PO 

a 

^ *4 

»4 

0 

fM 

K. 

4> 

m 

(VJ 

(T 

‘O 

Vi 

4-V 

ft 

.A 

pf 

(VJ 

ft 

44 

'• 

4V 

4 

■ 

9 

4 PO 

At 

A 

44  A 

0 (A  (A 

a 

PO 

v4 

9 

ft-) 

m 

O 

t *o 

f’ 

4 

\i 

•H 

»4 

Ai 

ft 

ft 

•VJ 

ft 

(VI 

fti 

ft 

(Vi 

(VI 

fti 

ft 

.4 

•4 

ra 

.4 

*4 

fti 

ftJ 

ft 

a 

a 

UV 

9 

9 fti 

ft. 

9 

O'  b 

«4 

(y 

3 

C' 

C 

r 

O 

O 

o 

a 

9 

a 

0 

0 

0 

c 

ra 

c* 

0 

0 

0 

3 

0 

0 

c* 

a 

0 

0 

0 

c* 

c 

v4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

p 

Ui 

U' 

UJ 

bJ 

U 

ut 

ilJ 

lb 

UJ 

<>J 

U 

b 

b 

U 

b 

bi 

UI 

bJ 

UJ 

b 

lb 

bi 

UI 

Ul 

b 

U 

b 

UJ 

lb 

Ui 

b 

bJ 

b 

Ui  Ui  Ul 

ui 

Ui 

b 

Uj 

4 

e 

c. 

>n 

O 

a\  u 

(VJ 

fti 

•a 

O 

a 

a 

VJ 

ft 

U- 

0 

4 O'  4 

(VJ 

9 

4i 

9 

u 

ftj 

c 

9 

4 

0 

9 <r 

c 

r4 

o 

0 9 

^ IA 

«j 

« IT 

4> 

c 

<0 

« 

VI 

lA 

ft 

ft 

O' 

IS, 

vf 

(T 

4 

4 

9 

44 

4 

TV  9 0 (A 

PO 

<A 

4 

9 Pft 

44  u 

0 

9 0 

a 9 

K 

aj  a 

Z 

09 

7'  O'  P4) 

tl> 

O 

4> 

u> 

o 

a 

ft 

9 

PO 

fO  ft 

4 C 

(A 

4 

4 

4 

A 

J 

fti 

9 

9 

4 

44 

9 lA  (A 

A 

A 

44  ft. 

cy 

cy 

3P 

a 

o 

(t  ^. 

« 

fv 

c 

o 

U’ 

tft 

a 

ft 

(A 

0 

9 

N. 

ft 

ft)  (A 

bV 

P3 

0 9 

■ft 

0 

a 

ft 

0 

a 

t) 

9 

•0 

M 

9 

«4 

^ 10  a 

a 

ft 

•A  Pk- 

o 

N. 

-4 

•A 

U> 

u> 

PJ 

«>4 

Ift 

ftJ 

a 

b ft- 

9 

9 

9 

K 

9 II 

P 

.4 

u 

a 

0 

VI  lA 

4 

ft- 

(A 

(Vi 

A 

44 

€b 

UV 

44 

y 

a UV  *a 

PO 

t 

i4 

r«' 

m 

4 

\i 

r 

( 

C 

ft 

ft. 

ft 

0 

p) 

0 

4 

4 

4 

4 

f> 

P 

p 

ft) 

3 

C 

C 

r4 

4 

M 

A 

P 

a 

l! 

u 

9 

p 

c 

C 

c 

C 

c 

•i 

O 

r 

< 

c 

e 

c 

c 

a 

J 

0 

0 

C 

a 

0 

r 

a 

(a 

k 

kJ 

c 

C 

c 

i 

c 

i 

c 

c 

k 

e 

c* 

z 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

p 

• 

b' 

i. 

b 

b 

Ui 

UI 

u 

b 

u 

lu 

UI 

lb 

U 

lb 

b 

Ik, 

U 

1. 

b 

b 

lb 

l 

b 

It 

b 

i 

b 

Ui 

b 

b 

vu 

b 

b 

b 

b 

u> 

k 

u 

i 

i- 

b 

4 

<4 

P' 

O 

4 

tr 

V 

« 

k 

ftg 

-» 

« 

<r 

1 

C 

(V 

P 

UV 

b 

C 

(Vi 

«.i 

if 

u 

9 

b 

f 

0 

a 

44 

fti 

b 

A 

lA 

p 

P 

ly 

« 

« 

«4 

o 

j* 

ir» 

4- 

ll 

f3 

K' 

TV 

,.4 

«-i 

p 

P 

a 

»r 

fo 

ir 

u 

e 

tf 

P 

0 

ft) 

ft' 

ft 

« 

0 

r 

U 

C. 

9 

« 

A 

0 

p 

r 

y 

ft 

A 

4 

0 

Pk. 

w 

O 

n 

IVI 

b 

€ 

ftj 

• 

rft 

t 

4 

0 

u 

P 

3 

ft. 

vA 

P 

9 

c 

k' 

ft 

9 

a 

a 

9 

« 

P 

ft. 

a 

U' 

pk 

Ift 

i 

c 

f 

w 

0 

UV 

V 

« 

a 

V. 

O 

ft) 

ft 

t 

UV 

P 

0 

b 

vA 

4 

k 

IV. 

0 

Ci 

(Vi 

a 

4 

(A  C 

lb 

CA  9 

A 

J 

P 

ft- 

0 

p 

9 

a 

ft. 

ppi 

O 

► 

4 

O’ 

4 

4 

O' 

r>o 

3 

o 

ft' 

ft 

■Ji 

7 

vV 

p4 

•f 

U' 

IVJ 

« 

lb 

9 ftj 

9 

lA 

4H 

UV 

b 

•) 

•i 

PO 

A* 

34 

•7 

a 

9 

a 

X 

a 

L 

U 

u\ 

p 

3 

4 

ft 

ft 

.••> 

ft 

ft 

ft 

pi 

ft. 

Pi 

)0 

P3 

»o 

p 

p 

(V 

(VJ 

ft 

ftj 

CVi 

.4 

H 

•4 

c 

--J 

k 

4( 

t4 

M 

b 

0 

3 

O 

« 

C' 

e 

a 

o 

C ' 

Ci 

O 

O 

c 

c 

a 

«_> 

0 

9 

0 

ta 

0 

c 

C) 

a 

c* 

C> 

c* 

c* 

to 

0 

0 

'a 

a 

a 

0 

a 

a 

C 

C 

0 

9 

a 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

♦ 

UJ 

UJ 

Ui 

Ui 

Ui 

u 

>iJ 

kM 

L 

• J 

u 

U' 

U 

u 

u 

U 

kU 

lb 

u. 

UJ 

. , 

u 

UJ 

Lb 

lb 

• ■ 

lb 

u 

b 

Ut 

lb 

Ui 

u 

Ui 

Ui 

u 

ti 

lb 

Ut 

u- 

o 

0 

a> 

If* 

a 

4 

3 

U' 

o 

a 

la 

ft' 

IT 

UV 

4T  V 

9 

0 

P- 

(V 

a 

ft- 

0 

!•> 

U 

b 

0 

a 

ftj 

a 

UV 

c* 

UV 

c 

A 

AJ 

iO 

u 

.# 

ir 

t 

M 

O 

If 

fft 

O 

<T 

iO 

1 

ft- 

vfi 

u* 

• ft 

7* 

ft 

ir 

p. 

9 

Ir* 

ift 

4 

0 

a 

A 

-4 

(VJ 

0 

a 

«4 

IT 

ft 

•3 

»p 

*0 

IT 

t 

r 

e 

t 

•r 

n 

•T 

ft 

P 

3 

ft 

p 

p 

^1 

en 

•ft 

«■ 

« 

a 

ft 

r< 

9 

0 

ift 

44 

•4 

a 

« 

p 

fti 

fti 

4 

0 

ft 

7 

*p 

4 

0 

0 

a 

o 

o 

0 

o 

■3 

T 

IT 

« 

7* 

''I 

PO 

ft 

pn 

ftV 

4 

4 

lA 

U 

U' 

0 

C' 

N. 

ft 

a 

ft 

4 

9 

ft 

A 

0 

A 

l' 

p 

ft 

4 

UV 

ft 

P 

■0 

tr 

4i 

r 

4 

4 

47 

o 

«• 

' 

VM 

• 

*• 

fti 

rH 

♦ 

ft 

U 

p 

(VJ 

t4 

9 

UV 

pn 

ft 

.H 

'■ 

!• 

44 

O' 

UV 

J 

-I 

bV 

-4  if) 

T 

4' 

o 

(M 

(\J 

4J 

•H 

ft^ 

ft! 

CVJ 

ft 

ft 

(VJ 

(V. 

b 

fti 

P 

PV 

PI 

ft 

PI 

'O 

S| 

CVJ 

b 

Cb 

r.< 

(VJ 

M 

44 

44 

4 

b 

•4 

3 

r 

C 

C3 

f 

r 

1 

C 

r 

> 

Cl 

■% 

f 

4 

r 

J 

c 

€ 

7 

3 

1 

3 

r 

c 

J 

ka 

0 

0 

< 

3 

k 

•a 

t 

y 

k 

> 

1 

7 

3 

r 

»3 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

1 

4 

u 

<U 

U 

U 

U 

b 

U 

LJ 

U 

ll* 

b 

b 

ij 

J 

b 

ll 

UI 

'b 

u 

b 

ki' 

b 

UJ 

• 0 

u 

b) 

U' 

b 

b 

b 

b 

lb 

li 

b 

It 

ul 

tj 

■J 

.b 

Ul 

b 

«r 

1 

3 

«' 

vT 

] 

ft 

9 

K. 

'ft 

lA 

a 

•0 

tr 

ft 

N. 

iT 

9 

0 

t 

tr 

tr 

0 

a 

M 

• ft 

Ift 

..t 

3 

_J 

• ' 

4 

r> 

► . 

1' 

O 

o 

11 

0 

t 

V 

U-' 

P 

a 

ft' 

r 

4 

f 

•> 

r 

t 

0 

tH 

iT 

ft 

sT 

iO 

9 

• ft 

a 

C 

0 

7 

4 

b 

a 

U' 

< 

'VI 

P 

4i 

*-4 

•-< 

ir 

t 

ft 

r 

c 

fti 

7 

vT 

r 

iVl 

0 

rs 

'ft 

. i 

ft 

9 

t- 

P 

J 

4 

.. 

fk. 

a 

9 

3 

0 

•VJ 

P 

a 

x> 

UV 

T 

N. 

«r 

O 

14 

4 • 

" 

•ft 

4 

•s 

P 

P 

ft 

*•* 

p- 

* 

P 

•' 

b 

r 

r 

a 

»' 

'O 

P 

9 

' 

PO 

n 

o 

A 

■0 

♦ 

ft) 

ft 

ki 

ft 

> 

'*1 

i> 

J 

•s. 

1 

ft 

f) 

0 

ft 

** 

4 

' 

4 

0 

) 

a 

IVJ 

P 

♦ 

ft*) 

• 

«■! 

1> 

U*' 

.3 

44 

tr 

ft' 

rt 

K’ 

C 

ir> 

.1 

f 

4 

4 

t 

J 

(• 

P 

r 

p 

» 

4 

a 

f 

, 

P 

1') 

)•  • 

■> 

b 

b 

1 b 

(\j 

A 

A 

o 

'-I 

1 

r- 

t 

-» 

r 

Cl 

r 

« 

1 

p- 

1 

t 

t 

J 

•■3 

t- 

1 

< 

*-  • 

1 

— 

c. 

fft 

3 

> 

r 

, 

t 

« 

'-y 

( 

v 

4 

4 

4 

« 

A 

4 

« 

4 

4 

* 

4 

« 

* 

4 

4 

4 

4 

4 

4 

4 

4 

4 

* 

4 

.* 

4 

4 

0 

4 

> 

t- 

It  ' 

• •1 

1 

!»' 

1 

1 

• • 

ll 

• f • 

1 

«ti 

1 

■ • I 

1 

1- 

1 

I.  > 

'll 

( 

It 

11  > 

ll' 

)•  - 

• • • 

b 

III 

<ti 

ll 

■ 

ll  < 

b 

>•  1 

Ill 

t 

ll 

t 

t 

\i 

f 

4 1 

rt 

P 

c 

fr, 

1 

.0 

1 

ft 

4 

r 

V 

1 

If 

ft. 

r 

• 

k - 

ft  1 

if 

4 

.ft 

b 

1 

ft 

9 

b 

I- 

tr 

•v. 

)ft 

.3 

> 

f» . 

« 

•o 

, 

a 

• 4 

IS, 

, 

U 

,j 

C 

4 

,, 

t 

.t 

n 

iTi 

n 

» 

n 

P 

1 

i 

■ M 

, . 

3 

« 

(t 

c 

) 

n I 

3 

P 

r 

-> 

T« 

. < 

P 

r 

> 

. i 

ft 

|> 

r 

r 

r . 

. « 

4 

r 

<. 

p 

f* 

ll 

P 

a 

1 

I 

ft' 

(S. 

pi 

1 

.4 

!• 

1 

ir 

1 

•V 

•3 

A 

r 

0 

** 

T 

\ 

• 

t 

r 

-* 

•* 

' 

O 

ft 

4* 

••* 

ft 

4 

* 

P 

r 

« 

44 

' 

ft 

U' 

•' 

p 

0 

a 

• ft 

«• 

S3 

0 

♦ 

■ 

a 

** 

1 

p 

* 

t 

I- 

•' 

ft 

'■ 

' 

r 

' 

ft- 

• 

■ 4 

* 

J 

' 

r 

(1‘ 

> 

i. 

If 

3 

r 

•' 

• i 

ii 

r 

J 

3 

• •> 

i 

to 

,, 

9* 

\i 

r 

lb 

J. 

f- 

r 

, 

1 

0 

\j 

fti 

1 li 

., 

.a 

( 

a 

, 

4! 

b 

.4 

3-P 

< 

A 

p 

o 

r 

ej 

» 

f 

, 

1 

r 

1 

, 

J 

. > 

0 

c 

Ci 

» 

w 

< 

c 

> 

1 

J 

.3 

.3 

.. 

k 

w 

( 

k> 

( 

1 

i 

k. 

3 

3 

4 

4 

4 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 

« 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

1 

1 

t 

1 

1 

> 

) 

ul 

It 

• 1 

t. 

li 

til 

(1 

Ul 

i| 

1 

Di 

) 

1)1 

>) 

)i‘ 

111 

)i 

• li 

ll 

u 

u- 

J 

U 

>1) 

It 

li 

b 

'<1 

1(1 

•J 

U 

IJ 

b 

• ll 

• > 

b 

u 

(I 

>i 

. a a 

IM 

0» 

4 

P 

o 

P 

w 

b 

IT 

0 

♦ 

vC 

or 

0 

4 

PI 

A 

r 

(T 

c 

w 

.} 

1 

c 

U 

J 

lA 

ft 

c 

9 

ft 

.3 

iVI 

«4 

0 

P' 

kj 

z 

<*> 

r 

4. 

<>.• 

a> 

4 

♦ 

<r 

J 

ft 

,, 

VJ 

c 

.-1 

ft 

0 

1 

ti 

(ft 

a 

ft 

14 

ft* 

P 

UV 

k 

,3 

4< 

U 

pi 

I. 

A 

AJ 

J 

1, 

•ft 

a 

p 

M 

f 

(NJ 

<r 

j 

1 

i4» 

S 

7* 

P 

O 

• ft 

p 

ft. 

(ft 

«v 

P 

(Vi  (»^ 

a 

a 

• 1 

•0 

n 

t 

Ift 

ft. 

.4 

«T 

ft 

IA 

ft 

P 

O' 

a 

t 

0 

K 

a 

pr 

(A 

0 

T 

-• 

<r 

•r 

<T 

4 

ft 

o 

fti 

- 

ir 

P 

ft- 

P 

0 

u. 

•r 

f.t 

’ 

P 

3 

'' 

r 

•k. 

♦ 

** 

3 

•« 

•k 

u 

tr 

' 

r 

u 

4 

p 

(Vi 

-* 

•* 

*■ 

' 

■■* 

* 

t 

' 

ft 

4 

ft* 

fti 

.7 

7 

ft 

fO 

1 

.4 

* 

fti 

7* 

t 

ft ) 

ft) 

4I 

IIV 

b 

4 

4 

• 

• 

C 

a 

; 

;• 

»7 

0 

• 

y 

3 

ft 

r- 

r 

• 

3 

J 

; 

• 

r 

r 

• 

a 

3 

• 

4 

•3 

r- 

• 

r* 

„• 

• 

3 

•3 

« 

w 

* 

3 

b 

b> 

C i 

J 

J 

C 

I 

w 

1 

4 

j 

a 

c 

a 

k. 

Cl 

1 

U. 

i 

3 

) 

c> 

t 

a 

J 

o 

J 

k 

J 

J 

c 

k 

k 

7 

a 

<.3 

C 

e 

a 

o 

r 

Ci 

0 

t 

C 

a 

S 

c 

1 

c 

a 

c> 

«o 

.] 

3 

0 

kj 

a 

r 

c 

1 

c 

1 

r* 

0 

3 

« 

1 

a 

3 

3 

C 

e 

r- 

a 

fa 

> 

CJ 

Q* 

> 

c. 

c 

r 

0 

r 

( 

3 

-a 

3 

r 

k 

C- 

r 

c 

«3 

Ci 

a 

1 

a 

< 

0 

c 

a 

CJ 

C 

3 

% 

Cj 

< 

c 

« 

O 

o 

e 

r% 

c 

o 

«T* 

r 

a 

CV 

y 

0 

T 

3 

c 

c 

n 

3 

e- 

0 

e 

3 

C3 

0 

3 

n 

t- 

» 

a 

0 

a 

C) 

3 

ft 

€ 

0 

a 

3 

3 

r 

t 

»r 

«> 

3 

fti 

-f 

7 

tr 

e 

ft) 

P 

n 

9 

( 

ftj 

t 

sT 

•* 

3 

1 

t 

9 

9 

ka 

ftj 

a 

0 

i3 

c 

*b 

a 

9 

0 

3 

P| 

a 

9 

9 

C 

4 

v« 

•4 

(Vl 

ft 

NJ 

rvi 

ft) 

»•) 

M 

* 

P 

p) 

p 

a 

a 

a 

a 

bV 

tfs  UV  tA 

.V 

9 

9 

9 

9 

9 

p 

ft- 

Pk 

Ps 

«i 

^ 

V 

44 

4 

m 

/ 

lA 

4i 

4 

O 

O* 

o 

(VJ 

a 

4V 

9 

K 

b 

<r 

a 

fti 

pn 

A 

UV 

9 

fft 

4> 

O' 

w4 

b 

p 

a 

ON 

4) 

9 

(T 

k 

•4 

«4 

•4 

w* 

•4 

•4 

•4 

4 

•0 

4- 

(M 

•VI 

ft) 

ft) 

<31 

ft' 

(V) 

fti 

A' 

M 

pft 

(r> 

10 

p- 

PO 

pv 

p- 

•n 

P> 

♦ 

4 

124 


r JO? 


Z.-'5-’8Efj3  7.7i53E*ll  e,41s4£*lo  ».8849E-03 


’310^*01  l.<>863E<’i.!)  ^.0a37E»01  9.3868E-13 


7Bb^E♦0l  l>.726SE-03  1.2299E*aZ 


‘JNIXIM 


FvC4.J» 


1261'^*09 


LT*. 


